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program  implementing  the  technique  for  the  optimization  of 
fixed  inlet  plug  nozzles  including  boundary  layer  effects. 
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ABSTRACT 


The  techniques  of  the  calculus  of  variations  have  been 
used  to  determine  the  configuration  of  an  optimum  thrust 
plug  nozzle.  The  problem  is  formulated  for  a  fixed  thrust 
injection  angle  and  cowl  lip  radius,  and  the  resulting  plug 
contour  is  then  an  optimum  for  a  given  upstream  geometry. 

The  optimum  values  of  the  injection  angle  and  cowl  lip 
radius  are  determined  by  a  parametric  study.  The  analysis 
is  carried  out  for  rotational  and  irrotational  flows  and  in¬ 
cludes  boundary  layer  effects.  A  method  is  presented  for 
each  of  the  problem  formulations  to  determine  if  a  given 
contour  is  an  optimum  and  a  relaxation  technique  is  used  to 
obtain  a  solution  to  the  irrotational  flow  problem. 

A  computer  program  which  makes  use  of  the  design 
equations  for  the  irrotational  flow  problem  is  developed  and 
described.  This  program  is  used  to  carry  out  a  parametric 
study  to  determine  the  optimum  cowl  lip  radius  and  injection 
angle  when  the  plug  length  is  fixed.  The  resulting  optimum 
nozzle  is  compared  to  one  designed  by  Rao’s  Method.  The 
importance  of  determining  the  base  pressure  accurately  is 
illustrated  and  an  example  of  scramjet  nozzle  optimization 
is  presented. 
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NOMENCLATURE 


English  Sybols 

acoustic  speed 

Lagrange  Multipliers 

Cowl  lip  location 

fundamental  function,  Eq.  (9) 

general  isoperimetric  constraint 

boundary  requirements,  Eqs.  (10),  (11),  and  (12) 

throat  half-height 

integral  to  be  maximized,  Eq.  (8) 

m'/e 

gradient  of  the  nozzle  walls  at  the  throat 
a  Mean  radius  of  curvature  at  the  throat 
Mach  number 

number  of  generic  dependent  variables 

total  pressure 

pressure 

zk  »  partial  derivative  0f  z.  with  respect  to  x 
x  * 

2k  .  partial  derivative  of  zk  with  respect  to  y 
dynamic  pressure,  pV*/2 
gas  constant 

thrust  integral,  Eq.  (1) 
x-componont  of  velocity 


V 


V 

X 

y 

zk 

ft 

fi 

Y 

6* 

«(  ) 

6' 

e 


n 


e 

X  l  ,  X  2 
X  j ,  X  i» 

e 

p 

pd 

T 


y-component  of  velocity 
velocity  modulus  *  (u2  ♦  v2)  ^2 
spacial  coordinate  along  the  axis  of  symmetry 
spacial  coordinate  normal  to  the  axis  of  symmetry 
typical  generic  dependent  variable  l 


6*  cos  0 

R  ^2,  where  R  is  a  non-dimensional  radius  of 
curvature  of  a  meridian  section  at  the  throat 


defined  by  Eq.  (B-6) 

defined  by  Eq.  (B-5),  and  whan  used  in  conjunction 
with  the  Moore-Hall  analysis  n  represents  the 


asymmetry  of  the  nozzle  profile  at  the  throat 
flow  angle 

Lagrange  multipliers 


defined  by  Eq.  (B-4) 
density 

downstream  radius  of  curvature  of  the  plug  wall  at 
the  throat 
shear  stress 
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SECTION  I 


0 


INTRODUCTION 


Conceptually,  nonconventional  nozzles  such  as  the  plug 
nozzle  or  the  forced  deflection  nozzle  offer  advantages  that 
cannot  be  achieved  with  conventional  nozzles.  The  plug 
nozzle,  for  example,  has  the  potential  advantages  of  throttl 
ability,  thrust  vector  control,  altitude  compensation,  and  a 
shorter  (and  presumably  lighter)  nozzle  for  the  same  expan¬ 
sion  ratio  when  compared  with  a  conventional  axisymmetric 
nozzle.  This  type  of  nozzle  is  currently  operational  on 
General  Electric's  TF39  and  Pratt  and  Whitney's  JT9D  jet 
engines  and  shows  considerable  promise  for  ramjet,  scramjct, 
and  rocket  engine  applications.  Because  of  its  potential 
importance,  the  problem  of  maximizing  the  thrust  of  a  plug 
nozzle  is  of  considerable  interest  and  is  the  subject  of 
this  investigation. 

The  concept  of  applying  optimization  techniques  to 
design  thrust  nozzles  was  introduced  by  Guderley  and 
Hantsch  (1)  in  1955.  Subsequently,  Rao  (2)  simplified  the 
analysis  and  developed  a  basic  design  procedure  that  has 
gained  wide  acceptance  throughout  the  industry.  Rao  also 
applied  his  formulation  to  the  plug  nozzle  design  prob¬ 
lem  (3).  Ilis  formulations  (2,3)  are  limited  to  a  fixed 


a  conventional  nozzle).  More  recently  Guderley  and  Armitngc 
(4t5)  reformulated  the  problem  for  the  design  of  axisymmetrie 
nozzles  using  a  more  general  approach  which  provides  for  a 
wide  selection  of  the  form  of  the  geometric  constraint  that 
can  be  imposed  on  the  design.  This  additional  flexibility 
is  achieved  only  at  the  expense  of  a  more  complex  problem 
formulation  and  an  order  of  magnitude  increase  in  the  com¬ 
plexity  of  the  numerical  solution. 

The  additional  potential  of  the  Guderley-Armi tage  approach 
was  realized  when  the  method  was  extended  by  Hoffman  and 
Thompson  (6)  to  include  the  design  of  optimum  nozzles  for 
gas-particle  flows,  by  Hoffman  (7)  to  include  the  design  of 
optimum  nozzles  for  reacting  nonequi librium  flows,  and  by 
Scofield,  Thompson, and  Hoffman  (8)  to  include  the  effects 
of  boundary  layer  drag  in  the  optimization.  The  essential 
difference  in  applying  the  method  to  these  various  types  of 
flows  is  in  the  computation  of  the  basic  flow  field  and  not 
in  the  method  itself. 

In  addition  to  the  references  already  cited,  it  is  of 
interest  to  note  that  the  Soviets  are  actively  engaged  in 
this  field  of  study  (9,10,11,12,13).  Krayko  (9)  has  ex¬ 
tended  the  work  of  Guderley  and  Armitage  (4)  to  the  con¬ 
struction  of  the  rear  part  of  a  minimum  drag  body  which  is 
restricted  in  length.  His  study  included  two  cases:  1)  the 
pressure  in  the  base  region  of  the  body  is  independent  of 
the  upstream  body  contour,  and  2)  the  pressure  in  the  base 


4  ' 


region  is  dependent  upon  the  upstream  body  contour. 

Pirumov  and  Rubtsov  (10)  have  developed  a  computer  program 
to  calculate  the  flow  field  in  axisymmetric  plug  and  expan¬ 
sion-deflection  nozzles  using  a  linear  sonic  line.  Refer¬ 
ences  11,  12,  and  13  are  works  of  a  similar  nature. 

The  objective  of  this  investigation  is  to  determine 
the  configuration  of  an  optimum  thrust  plug  nozzle,  includ¬ 
ing  the  throat  injection  angle,  cowl  lip  radius,  and  the 
plug  contour,  by  applying  the  techniques  of  the  calculus 
of  variations.  The  problem  is  formulated  for  a  fixed 
throat  injection  angle  and  cowl  lip  radius,  and  the  re¬ 
sulting  plug  is  then  an  optimum  for  the  given  up¬ 
stream  geometry.  The  optimum  values  of  the  injection 
angle  and  cowl  lip  radius  are  then  determined  by  a  para¬ 
metric  study. 

The  first  two  sections  which  follow  contain  the  prob¬ 
lem  formulations.  The  first  is  for  axisymmetric,  steady, 
rotational*  flow  and  the  second  is  for  axisymmetric,  steady, 
irrotational**  flow.  Section  IV  contains  explanations  of 
the  solution  procedure  and  the  method  of  plug  contour  modi-  .  „ 
fication.  Section  V  contains:  1)  the  results  of  the 


*  The  isentropic,  rotational  assumption  implies  that  en¬ 
tropy  and  total  enthalpy  are  constant  on  a  streamline 
(see  Ref.  14). 

**  The  irrotationality  assumption  implies  that  entropy  and 
total  enthalpy  are  constant  throughout  the  flow. 
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parametric  study  used  to  determine  the  optimum  injection 
angle  and  cowl  lip  radius  and  the  corresponding  optimum 
plug  contour,  2)  a  comparison  of  the  optimum  nozzle  to  a 
nozzle  designed  by  Rao's  method  for  the  same  conditions, 

3)  an  explanation  of  the  effects  of  changing  the  base  pres 
sure  model,  and  4)  an  example  which  illustrates  the  opti¬ 
mization  of  scramiet  nozzles.  The  final  section  contains 


SECTION  II 


ROTATIONAL  FLOW  PROBLEM 


1.  FLOW  MODEL 

The  plug  contour  to  be  optimized  is  that  portion  between 
points  T*  and  D',  shown  in  Figure  1  along  with  the  remaining 
nozzle  geometry.  The  cowi  lip  radius,  y£,  and  the  injection 
angle,  0,  are  prescribed,  and  the  nozzle  geometry  upstream  of 
the  characteristic  ET  is  fixed.  The  resulting  optimum  contour 
is  then  the  best  for  a  given  upstream  geometry.  The  region 
(R)  is  considered  to  be  an  inviscid  core  bounded  by  the 
streamline  TD,  the  right  characteristic  BE,  and  the  left 
characteristic  ET.  The  streamline  TD  is  separated  from  the 
plug  surface  by  a  boundary  layer  thickness  6*,  measured 
normal  to  the  streamline.  Thus,  changes  in  the  streamline 
TD  will  affect  only  the  flow  in  region  (R) . 

The  axial  thrust  to  be  maximized  is  obtained  by  summing 
the  integrated  pressure  and  shear  forces  on  the  plug  T'D* 
and  the  pressure  forces  acting  on  the  base  D'C.  The  thrust 
expression,  developed  in  Appendix  A,  is  given  by: 

IpC?  -  «’)  ♦  Tj  (y  -  «')dx  ♦  (y„  -  4’|,J,ph/2  (1) 
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FIGURE  1.  NOZZLE  GEOMETRY  AND  COORDINATE  SYSTEM 


where  6'  -  6*  cos  6  and  (*)  denotes  differentiation  with 


respect  to  x.  Equation  (1)  represents  only  that  portion  of 
the  total  axial  thrust  which  is  to  be  maximized  in  the  vari¬ 
ational  problem.  The  optimization  with  respect  to  the  injec¬ 
tion  angle  and  cowl  lip  radius  is  accomplished  by  a  para¬ 
metric  study.  Since  ambient  pressure  acts  over  the  area 
ffyg,  the  altitude  for  which  the  nozzle  is  designed  is 
specified  during  the  parametric  study.  Thus,  it  is  desired 
to  find  the  streamline  y  -  y(x)  which  maximizes  Eq.(l)  and 
from  which  the  wall  contour  can  be  obtained.  However,  it 
is  necessary  to  introduce  certain  constraints  to  assure 
that  the  results  will  be  physically  realizable. 

The  governing  equations  for  axisymmctr ic ,  steady, 
isentropic ,  rotational  flow  are  the  following: 


PUX  +  PVy  +  Upx  +  vpy  +  py/y  *  0  (2) 

puux  ♦  pvuy  ♦  px  -  0  (3) 

puvx  +  pvvy  ♦  py  «  0  (4) 

UPX  ♦  vpy  -  a2upx  -  a2vpy  *  0  (5) 


where  the  subscripts  x  and  y  denote  partial  derivatives. 
Equation  (2)  is  the  continuity  equation,  Eqs.(3)  and  f 4 ) 
are  the  x  and  y  Euler  equations,  and  Eq.(5)  is  obtained  as 
a  result  of  the  entropy  being  constant  on  a  streamline. 

I  he  boundary  Tl)  is  to  be  a  streamline,  which  requires  the 


uy 


0 


along  TD 


This  expression  is  multiplied  by  yp  for  later  convenience  in 
algcbriac  manipulation 


yp(u?  -  v) 


along  TD  (6) 


In  addition  to  these  constraints  most  engineering  appli¬ 
cations  require  the  contour  to  have  either  a  fixed  length,  a 
fixed  surface  area,  or  to  be  restricted  in  some  other  way. 

To  place  a  physical  limitation  on  the  flow,  a  general  iso- 
perimetric  constraint  of  the  form 


rD 

\  g(y,?tP)dx  *  constant 


along  TD  (7) 


is  imposed.  A  fixed  length  constraint  is  obtained  by  setting 
g  =  l-  and  the  condition  of  a  fixed  surface  area  by  setting 

g  -  (1  ♦  *2)V*. 

The  constraining  relations  givenby  Eqs. (2)  through  (7) 
are  imposed  by  utilizing  Lagrange  multipliers.  The  functional 
to  be  optimized  becomes 


R  Fdydx  + 


Gdx  ♦  ♦ 
DET 


(8) 


where 


F  -  Xj(pux  ♦  pvy  ♦  upx  ♦  vpy  ♦  pv/y) 

♦  A2(puux  ♦  pvu  ♦  px)  ♦  At(puvx  ♦  pwy  ♦  py) 


♦  Ai* (up  ♦  vpv  -  a2up  -a2vp  ) 


in  R  (9) 
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G  »  -[£  ♦  Cig  ♦  C*yp(uy  -  v)} 


along  TD  (10) 


G  - 

0 

along  DB 

ni) 

G  - 

0 

along  BT 

(12) 

*  - 

<yD  - 6  W2 

at  D 

(13) 

f  - 

Ip Cy  *  6*)  ♦  t] (y  -  6') 

(14) 

In  the  above  equations  X  i  through  X  %  are  functions  of  ;c  and 
y,  C2  is  a  function  of  x,  and  Ci  is  a  constant. 

The  functional  forms  assumed  for  t  and  6'  are 

t  «  t(x)  ,  6 '  *  6 * (x) 

The  base  pressure  is  taken  as  constant  over  the  base 
of  the  plug  at  an  effective  value  which  is  determined  by 
the  flow  properties  in  the  region  (R) .  Further,  since  the 
base  pressure  does  not  affect  the  flow  properties  in  the 
region  (R) ,  it  must  be  treated  in  the  variational  problem 
as  a  constant  which  is  not  known  a  priori.  As  will  be 
explained  in  more  detail  later,  the  optimum  contour  is 
approached  in  an  iterative  manner  in  which  the  value  of 
the  base  pressure  is  recalculated  in  each  iteration. 

The  optimization  procedure  is  independent  of  the  model 
used  to  calculate  the  base  pressure.  The  particular  model 
used  in  this  investigation  and  other  details  of  base 
pressure  are  discussed  in  Appendix  G.  In  addition  it  is 
assumed  that  the  total  temperature  and  pressure  are  known 
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for  each  streamline  crossing  the  characteristic  TE. 

2.  NECESSARY  CONDITIONS 

In  the  calculus  of  variations  there  are  certain 
necessary  conditions  arising  out  of  the  first  variation 
which  have  to  be  met  for  an  extremal  solution  to  exist. 

These  conditions  are  the  Euler  Equations,  transversality 
condition,  Erdman-Weirstrass  corner  condition  for  corner 
lines,  and  the  corner  condition  for  corner  points  on  a 
boundary  line.  The  Erdman-Weirstrass  condition  will  not 
be  investigated  since  flows  in  which  corner  lines  arise 
are  not  to  be  considered.  When  the  remaining  conditions 
are  satisfied  it  will  be  assumed  on  physical  grounds  that 
the  resulting  nozzle  surface  is  indeed  the  maximizing 
solution. 

The  calculus  of  variations  for  a  functional  of  the 
type  shown  in  Eq.(8)  is  developed  in  Appendix  B.  The  de¬ 
tails  of  the  application  of  the  calculus  of  variations  are 
given  in  Appendices  C  through  E  and  the  results  are  pre¬ 
sented  in  the  next  few  sections. 

a.  Euler  Equations.  The  general  form  of  the  Euler 
Equations,  obtained  for  arbitrary  variations  of  the  generic 
dependent  variables  in  the  region  (R) ,  is  given  by  Eq.(B-13). 
After  application  of  this  equation  for  each  of  the  generic 
dependent  variables  u,v,p,  and  p,  and  some  manipulation  as 


shown  in  Appendix  C,  Eqs.(C-5),  (C-9),  (C-13),  and  (C-20)  are 
obtained.  This  set  of  partial  differential  equations  for 


determining  the  Lagrange  multipliers  in  the  region  (R)  is: 


-Aiux  -  X,vx  -(A*/p)(px  -  alpx)  ♦  yX,x  +  uXjx 

♦  vX2y  ■  X iv/y  (ls) 

*XjUy  -  Xjvy  - (X*/ p) (py  -  a2Py)  +  yX,y  +  uX,x 

♦  vx,y  -  X ,v/y  (16) 


X*ux  ♦  A*vy  +(X*a2/p)(upx  +  vpy)  +  X»x  +  X, 

♦  uA*  ♦  vA%  ■  0 

*  7 

(Wp)px  ♦  (As/p)Py  ♦  yuAix  ♦  yvAXy  ♦  a2A2x 

♦  a*A,y  -  0 


(17) 


(18) 


where  the  subscripts  x  and  y  denote  partial  derivatives. 

Equations  (2)  through  (5),  together  with  Eqs.  (15) 
through  (18),  constitute  a  system  of  eight  partial  differen¬ 
tial  equations  for  determining  the  eight  variables  u,v,p,p,A!, 
A2,As,  and  A*.  As  shown  in  Appendix  F,  these  eight  equations 
form  a  system  of  quasi -linear,  nonhomogeneous ,  first-order 
partial  differential  equations  of  the  hyperbolic  type.  Thus, 
the  system  can  be  replaced  by  an  equivalent  system  of  char¬ 
acteristic  and  compatibility  equations.  The  characteristic 
system  valid  along  gas  streamlines  is  defined  by  Eqs.  (F-40), 
(F-47),  (F-48),  (F- 49) ,  and  (F-50).  These  equations  are: 


(19) 


dy/dx  “  v/u 


pudu  +  pvdv  ♦  dp  =  0 


(20) 


dp  -  a2dp  *  0 


(21) 


-A2du  -  Ajdv  +  ydAi  +  udA2  +  vdA s *  (A2dx  +A*dy)(v/y)  (22) 


(vA2  -  uA3)dv  ♦  (A2/p)dp  -  (A*ua2/p)  (Y-l)dp  +  yudAi 


-a2udAi, 


(A„a2v/y)dx 


(23) 


The  system  of  equations  valid  along  gas  Mach  lines  is 
made  up  of  Eqs.  (F-42) , (F- 57)  ,  and  (F-58).  These  equations 


are: 


dy/dx  *  tan(8  ±  o) 


(24) 


a2(vdu  -  udv)  ±  (a2/p)ctn  a  dp  *  (a2v/y) (udy  -  vdx)  (25) 


A2du  ♦  X3dv  -  (Ah/p) (dp  ♦  a2dp)  “ydAjitan  a  (vdA2 


-udAj)  ■  +  tan  a  (Afdx  -A2dy)(v/y) 


(26) 


The  upper  sign  in  Eqs. (24) ,  (25),  and  (26)  refers  to  left¬ 
running  Mach  lines  and  the  lower  sign  to  right-running  Mach 
lines. 

b.  Transversality  Conditions.  The  general  transversality 
condition  is  given  by  Eq.(B-14).  A  detailed  development  of  the 
transversality  conditions  is  presented  in  Appendix  D.  The 
following  is  a  summary  of  the  results: 

(1)  Along  ET.  There  can  be  no  variations  in  u,v,p, 
p,x,  or  y  along  ET  (see  Figure  1)  since  the  location  of  this 
line  and  the  flow  properties  along  it  are  determined  by  the 


fixed  upstream  geometry.  Therefore,  the  transversality 
conditions  along  ET  are  satisfied  identically. 

(2)  Along  DE.  Application  of  Eq.(B-14)  along  DE 
results  in  the  four  equations  (D-4)  through  (D-7).  These 
four  equations  can  be  combined  to  yield  the  equation  of  a 
right-running  characteristic  which  can  be  used  to  replace  any 
of  the  four  equations.  Thus,  DE  is  required  to  be  a  right¬ 
running  characteristic  along  which  Eqs . (D-4) , (D-5) ,  and  (D-7) 
must  be  satisfied  in  addition  to  the  characteristic  equation 
which  is  used  to  replace  Eq.(D-6).  These  equations  are: 


y?Ai  ♦  (u*  *  v)Aa  -  0 

yAi  -(u^  -  v) A*  *  0 

yAx  -  a2X*  -  0 

(u2  -  a2)y2  -  2uv^  ♦  (v2 

(3)  Along  TD.  When 
Eqs.(D-14),(D-18),  and  (D-31) 
as  follows: 

A  i  ■  Cj 

uAs  -  vA*  ♦  uf^  ♦  ugpCj  • 
dCa/dx  -  (y  -  6 ’ ) (du/dx  ♦ 


(27) 

(28) 
(29) 

*  •*)  "  0  (30) 

Eq.(B-14)  is  applied  along  TD, 
result.  These  equations  are 

(31) 

0  (32) 

6  *dv/dx)/y 


-Ic,  (pugpdv/dx  -  gy  ♦  d(gy)/dx]/(ypu) 

+  t/(ypu)  (3J) 
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where 


fp  s  (?  -  <$')(y  -  6’)  (34) 

c.  Corner  Conditions.  The  corner  conditions  are  dis¬ 
cussed  in  detail  in  Appendix  E.  Points  E  and  T  are  considered 
to  be  fixed,  thus  the  corner  condition  is  satisfied  identi¬ 
cally  at  these  two  points.  The  condition  which  must  be  satis¬ 
fied  at  point  D  is  given  by  Eq.(B-16).  Application  of  this 
equation  yields  Eqs.(E-12)  and  CE- 13)  which  are: 

l  (y  *  « ' ) (P«  *  -  t)  ♦  C2puy?  -  Ci(g  -  ?g^)lTD  *  0  (35) 

[p(y  -  «')  ♦  Cig^  ♦  Capyu]TD  -  (yD  -  6p)pb  (36) 

3.  METHOD  OF  50LUTI0N 

The  equations  obtained  from  the  variational  problem  can 
now  be  applied  in  a  straightforward  manner  to  determine  if  a 
given  contour  is  an  optimum.  A  contour  for  the  plug  is 
assumed  and  the  flow  field  calculated  by  the  method  of  char¬ 
acteristics.  However,  this  requires  an  initial -value  line 
along  which  the  flow  properties  are  known. 

In  the  problem  formulation  it  has  been  assumed,  perhaps 
naively,  that  the  initial  conditions  from  which  the  method 
of  characteristic  solution  can  be  initiated  are  provided  or 
can  be  readily  calculated.  This  is  consistent  with  the  fact 
that  the  optimization  method  is  independent  of  the  method  of 
obtaining  initial  conditions,  and  only  requires  that  the 
initial  conditions  represent  a  physically  possible  flow  that 
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is  compatible  with  the  governing  equations  for  the  supersonic 
flow  field.  Thus,  the  same  optimization  procedure  is  used 
for  a  scramjet,  for  which  the  initial  conditions  at  the  nozzle 
entrance  are  provided  either  from  measured  data  or  frou  a 
theoretical  analysis  of  the  flow  through  the  combustor,  and 
for  a  subsonic  burning  engine  for  which  the  initial  conditions 
can  be  determined  from  a  transonic  flow  analysis. 

Once  the  flow  field  has  been  calculated,  values  of  the 
Lagrange  multipliers  Ai  through  A%  can  be  determined  at  point 
D  from  Eqs. (27), (29), (31), (32), (35),  and  (36).  Starting  at 
point  D,  values  of  these  multipliers  can  be  evaluated  along 
TD  using  Eqs. (22), (23),  (31),  (32),  and  (33).  Then,  utilizing 
the  characteristic  net  (see  Figure  2)  developed  in  evaluating 
the  flow  field,  the  Lagrange  multipliers  in  the  region  (R) 

•  can  be  determined. 

Starting  at  point  1  near  the  base  of  the  plug,  the 
initial  data  known  along  TD  can  be  used,  along  with  Eq.(26) 
which  is  valid  along  the  two  Mach  lines  intersecting  at  point 
2,  and  Eqs. (27)  and  (29)  which  are  valid  along  DE,  to  deter¬ 
mine  the  Lagrange  multipliers  Ai  through  A*  at  point  2.  The 
values  of  Ai  through  A*  can  be  determined  at  point  3  by 
applying  Eq.(26)  along  the  Mach  lines  intersecting  at  point 
3  and  Eqs. (22)  and  (23)  along  the  gas  streamline  passing 
through  points  2  and  3.  Point  5  can  be  determined  in  the 
same  manner  as  point  2.  The  Lagrange  multipl iers  can  be  deter¬ 
mined  throughout  the  region  (R)  by  continuing  this  procedure. 

Note  that  Eq.(28)  was  not  used  in  the  above  procedure  but 
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must  be  satisfied  along  DE.  This  relation  then  serves  as  a 
means  of  checking  whether  a  given  contour  is  an  optimum.  If 
the  contour  is  not  an  optimum,  it  must  be  modified  to  satisfy 
Eq. (28) . 

Contour  modification  techniques  have  been  developed  by 
Guderley  and  Armitage  (5)  and  Scofield  et  al.(8)  for  irrota- 
tional  flow.  Even  though  the  current  problem  is  more 
complex,  it  appears  that  a  similar  contour  modification  tech¬ 
nique  could  be  developed  to  obtain  an  optimum  plug  contour. 

It  is  possible  to  significantly  simplify  the  calculation 
procedure  by  considering  a  problem  which  is  slightly  more 
restrictive  than  the  present  one  and  yet  retains  the  signif¬ 
icant  features  of  the  optimization,  thereby  providing  consid¬ 
erable  insight  into  the  design  and  operation  of  optimum  plug 
nozzles.  This  problem  is  considered  in  the  next  section. 


SECTION  III 

IRROTATIONAL  FLOW  PROBLEM 

1 .  FLOW  MODEL 

The  problem  to  be  considered  here  is  one  in  which  the 
flow  in  region  (R) (see  Figure  1)  is  irrotational .  The  thrust 
to  be  maximized  in  the  variational  problem  is  given  by  Eq.(l) 
which  is  repeated  here  for  convenience: 


rD 

[p(? 

T 


•  «*)  ♦  tJCy  -  6*)dx  ♦  CyD  -  «f>)2Pb/2  (37) 


Here  again,  the  optimum  values  of  the  injection  angle  and  cowl 
lip  radius  are  obtained  from  a  parametric  study. 

The  basic  difference  between  this  problem  formulation  and 
the  one  presented  in  Section  II  is  in  the  governing  equations  of 
motion.  For  the  flow  field  to  be  isentropic,  it  must  satisfy 
the  irrotationality  condition: 


u  -  v  »  0 
y  x 


(38) 


The  flow  field  must  also  satisfy  the  continuity  equation 


(ypu)x  ♦  (ypv)y  -  0 


(39) 


where  the  subscripts  indicate  partial  derivatives.  Along  the 
nozzle  wall  the  dependent  variables  are  related  through  the 


.  j  N'-  '  i 


" 

i  I 


equation  for  a  streamline  which  is: 


yp(uy  -  y)  -  o 


(40) 


Also,  a  general  isoperimetric  constraint  is  imposed  along  TD. 


fD 

J  g(y»y,p)dx  - 


constant 


(41) 


The  constraining  relations  given  by  Eqs . (38) , (39) ,  (40) 
and  (41)  are  again  imposed  by  means  of  Lagrange  multipliers 
such  that  the  functional  to  be  maximized  becomes 


■  J £  Fdydx  ♦  j)  Gdx 


♦  ♦ 


(42) 


where 


F  *  X  i  (Uy  -  vx)  +Aa[(ypu)x  ♦  (ypv)  ] 


in  R  (43) 


G  -  -{p(y-£,)*T]  (y-6')  ♦  X  iyp (uy  -  v)  +X%g  along TD(44) 


G  -  0 


(y. 
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D^Pb/2 


along  DE  (45) 
along  ET  (46) 
at  D  (47) 


In  the  above  equations  Xj  and  A  a  are  functions  of  x  and  y, 
X  a  is  a  function  of  x,  and  X  *  is  a  constant. 

In  addition  it  is  assumed  that  the  total  temperature 
and  pressure  are  known.  Since  the  flow  is  isentropic  the 
functional  relations 

P  ■  P(u»v)  p  -  p(u,v)  a  •  a(u,v)  o  -  a(u,v) 


the  dependent  variables  are  the  velocity 


components  u  and  v 


2.  NECESSARY  CONDITIONS 


The  calculus  of  variations  can  be  applied  to  Eq.(42)  in 
a  manner  similar  to  the  previous  case  to  determine  the  con¬ 
ditions  necessary  to  an  extremal  solution.  These  conditions 
are  as  follows: 


a.  Euler  Equations 


yp(uv/a*)\2  -  0 


In  the  region  of  supersonic  flow  these  equations  are  a 
system  of  hyperbolic,  partial  differential  equations  with 
characteristic  directions  which  correspond  to  the  char¬ 
acteristic  directions  of  the  basic  flow  field.  The  compati 
bility  equations  are 


Equations  (50)  are  valid  along  the  characteristics  of  the 
basic  flow  field,  defined  by 


The  upper  sign  in  Eqs.(SO)  and  (51)  refers  to  left-running 
characteristic*  and  the  lower  sign  to  right-running  char¬ 
acteristics  . 


b.  Transversality  Conditions. 


(1)  Along  TD.  Along  this  line  variations  in  u,v,x, 

and  y  can  be  treated  as  arbitrary  and  independent  which  re¬ 
sults  in  three  equations  : 

Xi  "  Xi  (52) 

-  pu(y  -  6')(y  -  «')  ♦  A„pugp  (53) 

Xj  *  (y  -  4')(du/dx  ♦  6'dv/dx)/y  -  (A%/y) [gptf 

-  (*y  "  dg^/dx)/(pu)]  ♦  T/(ypu)  (54) 

(2)  Along  DB.  Along  the  exit  characteristic,  DE, 
variations  in  u,v,x,  and  y  can  be  treated  as  arbitrary  and 
independent.  This  results  in  two  equations  which  can  be  com¬ 
bined  to  yield  the  equation  of  a  right -running  characteristic. 
This  equation  can  be  used  to  replace  \,.ie  of  the  two  original 
equations.  Thus,  DE  is  required  to  be  a  right -running  char¬ 
acteristic  along  which  the  following  equation  must  be  sat¬ 
isfied: 

*x  *  *ayP  ctn  o  -  0  (55) 

(3)  Along  dT .  Since  no  variations  in  the  gas  prop¬ 
erties  or  in  x  and  y  are  allowed  upstream  of  the  left-running 
characteristic  ET,  the  transversality  condition  is  satisfied 
identically  along  this  line. 

c.  Corner  Conditions. 

As  in  the  previous  case,  corner  conditions  are 
obtained  at  point  D  only.  The  two  conditions  which  must  be 
satisfied  at  this  point  are: 
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[  (y  -  <s ' )  (p6  *  -t)-  A„(g  -  ♦  Xsypuy]TD  -  0 


(56) 


l p (y  -  «')  +  ^sypu  ♦  ^ ^g*) TD  -  (yD  -  $D)pb 


(57) 


3.  METHOD  OF  SOLUTION 

The  solution  procedure  for  this  problem  is  similar  to 
that  of  the  previous  case,  but  is  somewhat  less  complicated. 
First,  the  flow  field  is  solved  by  the  method  of  characteris¬ 
tics.  The  characteristics  have  directions  given  by  Eq.(51) 
and  the  compatibility  relations  valid  along  these  lines  are 


d9 ♦  ctn  o  dV/V  ±[(sin  0  sin  a)/(y  sin  (0±o))dy  ■  0  (58) 


The  upper  sign  refers  to  left-running  characteristics  and  the 
lower  sign  to  right-running  characteristics.  Once  the  flow 
field  is  known,  Eqs . (52) , (56) ,  and  (57)  can  be  used  to  solve 
for  A i  and  A2  at  point  D. 

Starting  from  point  D,  Eqs. (52) , (53) ,  and  (55)  can  be 
used  to  evaluate  A)  and  A 2  along  TD.  The  plug  surface  TD  then 
serves  as  an  initial-value  line  from  which  to  start  the  metl.od 
of  characteristics  solution  for  Aj  and  A2  in  the  region  (R) . 
These  two  Multipliers  have  the  same  characteristic  directions 
as  the  flow  field,  and  their  compatibility  relations  are 
given  by  Eqs  .  (50) . 

Equation  (55)  must  be  satisfied  along  the  exit  char¬ 
acteristic,  DE,  and  serves  as  a  check  to  determine  whether 
or  not  a  given  contour  is  an  optimum.  If  Eq.(55)  is  not  sat¬ 
isfied  then  the  contour  must  be  modified.  As  mentioned 
earlier,  contour  modification  techniques  have  been  developed 
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for  the  type  of  flow  under  consideration,  but  were  applied 
to  converging-diverging  nozzles. 

4.  RAO'S  RESULT  A  SPECIAL  CASE 

It  is  of  interest  to  note  that  the  current  foraulation 
contains  the  results  of  Rao(3)  as  a  special  case.  If  the 
axial  length  is  held  constant,  then  g  -  1,  and 

*P  ■  *y  ‘  h  ’  ° 

Neglecting  the  wall  shear  stress  and  boundary  layer  thickness, 
Eq. (54),  valid  along  TO,  becoaes 

dXs/dx  -  du/dx 

or  since  As  *  As  on  TO, 

A*  -  Ajd  •  u  -  uD 

x2  -  Aid  ♦  V  cos  6  -  VD  cos  eD  (59) 

Equation  (53),  which  is  also  valid  on  TD,  becoaes 

Aj  *  ypV  sin  0  (60) 

For  any  velocity  distribution  u(x,y),  v(x,y)  that  sat¬ 
isfies  the  flow  equations,  the  two  pairs  of  functions 

Ai  ■  const  A a  ■  const 

A i  •  ypV  sin  0  Aa  ■  V  cos  0 

satisfy  the  partial  differential  equations (48)  and(49)  which 
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are  valid  throughout  the  flow  field.  Thus,  Eqs.(59)  and 
(60)  must  also  be  valid  along  DE  where  Eq.(55)  applies. 
Substitution  of  Eqs.(59)  and  (60)  into  Eq.(57)  yields 


ypV  sin  0  -  yp  ctn  o  (XaD  ♦  V  cos  6  -  VD  cos  0D)  *  0 


which  reduces  directly  to 


V  cos  (6  +  a] 
cos  a 


const 


(61) 


Equations  (50)  and  (55)  can  be  combined  to  yield 


X i  -  (Cyp  ctn  a) 1/2 


where  C  is  a  constant.  Substituting  this  into  Eq.(60) 


yields 


ypV2  sin20  tan  a  -  const 


(62) 


Equations  (61)  and  (62)  must  be  satisfied  along  the 
exit  characteristic  DE  and  are  identical  to  the  equations 
obtained  by  Rao.  At  point  D  Rao  obtained  the  corner  con¬ 


dition 


(P  "  P5)  ctn  o/(l/2pV2)  ■  -  sin  20 


(63) 


This  equation  can  also  be  obtained  by  neglecting  the 
wall  shear  and  boundary  layer  thickness  in  Eqs.(53)  and 
(57),  and  by  substituting  Eqs.(52)  and  (53)  into  Eq.(S5). 


This  results  in 


1. 
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As  *  v/ctn  a 


(64) 


which  must  be  sstisfied  at  point  D.  This  result  is  then 
substituted  into  the  corner  condition,  Eq.(57),  which 
reduces  directly  to  Eq.(63). 

The  problem  formulated  in  Section  III,  neglecting  the 
boundary  layer  thickness,  has  been  programmed  in  Fortran  IV. 
Correction  for  boundary  layer  thickness  can  be  made  to  the 
optimized  contour  by  using  the  displacement  thickness  to 
adjust  the  wall  coordinates.  The  numerical  techniques, 
including  the  method  of  contour  modification,  are  discussed 
in  the  next  section. 


SECTION  IV 


NUMERICAL  METHODS 

1.  SOLUTION  PROCEDURE 

The  solution  procedure  consists  of  estimating  what  the 
optimum  contour  should  be,  analyzing  the  contour  to  see  if 
it  is  an  optimum,  and  modifying  the  contour  if  it  is  not  an 
optimum.  In  order  to  analyze  the  contour  it  is  necessary  to 
first  solve  the  flow  field  by  the  method  of  characteristics 
which  requires  a  start  line.  The  computer  program  contains 
two  options  for  this  purpose.  The  start  line  can  either  be 
read  in  from  data  cards  or  generated  internally.  The  inter - 
nally  generated  start  line  is  obtained  from  either  a  modi¬ 
fied  Moore-Hall  (16)  transonic  flow  analysis  or  an  isen- 
tropic  flow  analysis  in  which  the  Mach  number  is  assumed  to 
be  constant  along  a  straight  line.  The  details  of  the 
Moore-Hall  analysis  and  the  necessary  modifications  are 
discussed  in  Appendix  H.  In  any  case,  the  start  line  will 
always  be  from  point  A  to  point  E'  shown  in  Figure  3, 

Before  going  into  the  details  of  how  the  flow  field  is 
calculated,  the  conditions  at  point  T(see  Figure  1)  need  to 
be  examined.  In  the  problem  formulation,  point  T  was  con¬ 
sidered  to  be  fixed  and  thus  variations  in  the  plug  contour 
are  only  allowed  downstream  of  point  T,  As  a  result,  in 
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carrying  out  the  optimization  process,  the  contour  must  be 
modified,  and  consequently,  a  sharp  corner  can  arise  at 
point  T.  It  is  thus  necessary  to  specify  the  plug  curva¬ 
ture  in  this  region.  The  actual  nozzle  will  then  follow 
this  contour  up  to  a  certain,  but  not  predetermined,  point. 
As  a  result,  point  T,  shown  in  Figure  3,  is  located  so  that 
no  discontinuity  in  the  plug  contour  arises  as  the  contour 
modification  is  carried  out.  Point  E  is  then  located  along 
the  left  characteristic  originating  at  point  T  rather  than 
being  on  the  cowl  lip.  In  general,  point  T  will  always  be 
downstream  from  point  A  and  can  never  move  upstream  of  point 
A  during  the  contour  modification  process.  The  calculation 
of  the  flow  field  must  be  carried  out  in  recognition  of 
this  situation. 

The  flow  field  calculations  are  started  by  evaluating 
the  flow  properties  along  right  characteristics  which  orig¬ 
inate  at  the  start  line.  These  calculations  continue  down 
the  right  characteristics  until  the  left  characteristic 
which  originates  at  point  A  is  reached(see  Figure  3).  The 
properties  along  this  left  characteristic  are  stored  to 
avoid  recalculating  this  portion  of  the  flow  field  each 
time  the  plug  contour  is  adjusted.  Thus,  as  point  T  moves 
during  the  iteration  procedure  it  is  necessary  to  calculate 
the  flow  field  from  the  left  characteristic  originating  at 
point  A  to  the  new  point  T. 

Once  the  flow  properties  upstream  of  and  along  the  left 
characteristic  TE  are  evaluated,  TE  is  divided  into  (NPTS-1) 
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equally  spaced  points  and  the  data  are  curve  fitted.  How¬ 
ever,  an  option  is  provided  in  the  progi am  so  that  the 
first  (NS-1)  points  can  have  closer  spacing  than  the  re¬ 
maining  points.  Thus,  the  grid  size  can  be  varied  in  the 
region  (R) .  The  flow  calculations  in  the  region  (R)  proceed 
from  T  to  E  down  the  right  characteristics  until  the  plug 
contour  TD  is  reached. 

Once  the  flow  field  is  known  it  is  possible  to  evalu¬ 
ate  the  Lagrange  multiplier  field  by  starting  at  point  D 
and  solving  Eqs.(52),  (56),  and  (57)  for  Xi  and  X 2 .  The 
transversality  conditions  (52),  (53),  and  (54)  are  then  used 
to  evaluate  X2  and  X2  along  TD.  Thus,  the  surface  TD  can 
be  used  as  an  initial- value  line  from  which  to  start  the 
method  of  characteristics  solution  for  Xi  and  X 2  in  (R) . 

•  4 

Again  starting  at  point  T  and  proceeding  towards  E,  Xi  and 
X  *  are  evaluated  up  the  right  characteristics  starting  from 
the  plug  surface  and  stopping  when  the  left  characteristic 
TE  is  reached.  Equation  (55)  is  evaluated  as  Xj  and  X2  are 
obtained  along  the  exit  characteristic.  No  iteration  pro¬ 
cedure  is  required  to  obtain  X ,  and  X 2  in  (R)  since  Eqs.(50) 
are  valid  along  the  characteristics  of  the  basic  flow  field 
which  is  known.  Thus,  in  finite  difference  form  Eqs.(50) 
are  algebraic  equations. 

In  general  Eq.(55)  will  not  be  satisfied  by  the  first 
guess  for  the  optimum  surface  and  it  is  then  necessary  to 
calculate  a  new  wall  contour.  In  calculating  the  new  con¬ 
tour  it  is  convenient  to  consider  Eq.(55)  as  an  error 
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function  such  that 


li  *  X  i  -  X  2yP  ctn  o  (65) 

Changes  in  the  wall  contour  are  designed  to  drive  E  to  zero 
as  rapidly  as  possible  and  upon  this  premise  a  new  wall  is 
constructed.  This  method  of  contour  modification  is  refer¬ 
red  to  as  a  relaxation  technique  and  was  developed  by 
Scofield,  Thompson,  and  Hoffman  (8).  The  details  of  the 
method  are  described  in  the  next  section. 

After  the  new  wall  contour  is  obtained  the  calculation 
procedure  starts  over  again,  beginning  from  the  stored  left 
characteristic  which  originates  at  point  A.  This  iteration 
procedure  continues  until  the  error  function  E  is  reduced 
to  an  acceptable  value  near  zero. 

-» 

2.  RELAXATION  TECHNIQUE 

The  wall  modification  procedure  or  wall  relaxation  must, 
above  all,  produce  rapid  convergence.  The  entire  procedure 
is  designed  with  this  in  mind. 

In  order  to  change  the  wall  contour  it  must  first  be 
determined  how  changes  in  the  contour  affect  the  error 
function  given  by  Eq.(65).  To  do  this  the  wall  angle  0  is 
chosen  as  the  independent  variable  and  the  error  function 
E  as  the  dependent  variable.  Theoretically  the  wall  angle 
can  be  incremented  at  a  point  on  the  wall,  the  flow  field 
and  Lagrange  multiplier  field  recalculated,  and  the  change 
in  the  error  function  along  DB  evaluated.  This  procedure 


30 


could  be  repeated  until  every  wall  point  had  been  incre¬ 
mented  and  the  corresponding  changes  in  the  error  function 
found.  This  would  result  in  an  n  x  n  matrix  (n  -  number 
of  wall  points)  relating  changes  in  the  wall  angle  to 
changes  in  the  error  function.  This  can  be  written  in 
partial  derivative  form  as 


Ei  -  Eio 


*  j  *  1 » . . .  ,n ) 


(66) 


where  Ei(J  and  ejo  are  the  initial  values  of  E.  and  e . . 

Once  these  partial  derivatives  are  known,  a  truncated 
Taylor  series  could  be  used  to  relate  changes  in  the  wall 
angle  to  changes  in  the  error  function  such  that 


Ei  *  Eio  *  Jq 


(0j  *  ®j0)  (i  >  j  -  1* . . .  ,n)  (67) 


Since  the  desired  value  of  the  error  function  is  zero,  Eqs. 
(67)  could  be  used  to  solve  for  the  value  of  the  wall  angle 
that  will  drive  the  error  function  to  zero.  Thus, 


-  -Eio/cav^)  |6jo  (i>  j  -  l,...,n) 


(68) 


In  theory  Eqs. (68)  could  be  solved,  but  in  practice  this 
could  be  difficult  when  a  large  number  of  wall  points  are 


involved. 


In  their  investigation  of  the  problem  for  conventional 
nozzles,  Scofield,  Thompson,  and  Hoffman  (8)  found  that  it 
could  be  assumed  that  there  is  an  independent  relationship 
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between  changes  in  the  wall  angle  and  changes  in  the  error 
function  which  lie  on  the  same  right-running  characteristic. 
That  is,  the  main  effect  on  E  due  to  a  change  in  the  wall 
angle  propagates  down  the  right-running  characteristic 
which  originates  at  that  point.  This  same  type  of  assump¬ 
tion  was  found  to  be  valid  for  the  plug  nozzle  when  applied 
along  left-running  characteristics  originating  at  the  wall. 
Thus,  Eqs . (68)  reduce  to  n  simple  independent  equations 


which  can  be  solved  for  AO  at  each  of  the  n  wall  points. 


i  -  -E^/OEj/aSj) 


(i  -  l,...,n) 


(69) 


Since  the  problem  is  nonlinear,  the  final  solution  must  be 


approached  iteratively.  The  wall  angles  for  the  (r  ♦  1) 


iteration  are  given  by 


<rM>  -  eT  ♦ 


V  ■  el  ♦  Aei 


(i  ■  1 . n) 


(70) 


The  procedure  just  described  is  a  simple  method  of 
adjusting  the  wall  contour  but  would  require  considerable 
time  if  carried  out  in  all  of  its  detail.  Scofield,  Thomp¬ 
son,  and  Hoffman  (8)  used  two  methods  to  reduce  the  computer 
running  time  and  both  are  used  in  the  current  program. 

First  it  was  noted  that  a  nearly  linear  relationship  exists 
between  the  partial  derivatives  aEj/aOj  and  the  correspond¬ 
ing  wall  axial  coordinate  x.  Because  of  this  linear  rela¬ 
tionship  it  is  possible  to  calculate  the  partial  derivatives 
at  a  few  points  (typically  ten)  and  then  fit  a  straight 
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line  through  these  points  by  the  method  of  least  squares. 
The  remaining  partial  derivatives  can  be  taken  from  the 
fitted  straight  line  and  thereby  reduce  the  time  required 
for  calculating  SEj/30^  The  second  method  used  to  reduce 
the  program  running  time  is  by  recalculating  the  partial 
derivatives  only  after  several  iterations  rather  than 
after  each  iteration. 

Two  other  controls  are  included  in  the  program  to 
assure  rapid  convergence  and  to  prevent  oscillations. 

These  controls  are:  1)  application  of  a  weighting  factor 
to  the  wall  angle  corrections  and  2)  allowing  a  maximum 
change  of  5°  in  the  wall  angle  at  a  point. 

The  error  function,  wall  angle  corrections,  and  par¬ 
tial  derivatives  have  been  plotted  in  Figures  4,  5,  and  6 
to  illustrate  how  the  program  progressively  reduces  the 
error  function  and  modifies  the  plug  contour.  These 
figures  have  been  plotted  from  the  results  of  Sample  Case 
No,  1  which  is  discussed  in  Appendix  K.  Figure  4  is  a  plot 
of  the  error  function,  E,  after  each  iteration.  As  can  be 
seen,  the  error  associated  with  the  first  guess  for  the 
optimum  surface  is  very  large  but  reduces  rapidly.  The 
iteration  procedure  continues  until  the  absolute  value  of 
the  erroi  function  divided  by  the  local  value  of  X  i  is  less 
than  0.001.  This  criterion  for  an  acceptable  solution  was 
met  after  11  iterations.  Figure  5  is  a  plot  of  the  wall 
angle  corrections,  A0,  after  each  iteration.  As  might  be 
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expected,  the  wall  angle  corrections  are  large  for  the 
first  guess  of  the  optimum  contour  but  decrease  rapidly  as 
the  error  function  decreases.  The  partial  derivatives  of 
the  error  function  with  respect  to  the  wall  angle,  3E/ae» 
were  calculated  for  the  first  guess  and  again  after  5 
iterations.  These  results  are  shown  in  Figure  6.  It 
should  be  noted  in  each  of  these  figures  that  the  number 
of  wall  points  on  the  contour  which  is  to  be  optimized 
may  change  from  iteration  to  iteration.  This  occurs  as 
the  program  seeks  the  specified  length  and  specified 
number  of  wall  points. 

The  details  concerning  the  computer  program  and  its 
operation,  including  input,  output,  failure  modes,  and 
listings  are  given  in  Appendices  J,  K,  and  L. 
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SECTION  V 


RESULTS 


The  formulations  of  Sections  II  and  III  assume  spec¬ 
ified  values  for  the  cowl  lip  radius  and  initial  injection 
angle.  Since  both  of  these  parameters  have  a  significant 
influence  upon  the  total  thrust  of  plug  nozzles,  it  may  be 
desirable,  in  some  cases,  to  determine  the  optimum  values 
of  these  quantities.  To  illustrate  how  this  can  be  done,  a 
parametric  study  was  carried  out  to  determine  the  optimum 
cowl  lip  radius  and  injection  angle  for  a  given  length  nozzle 
The  purpose  of  this  section  is  to  present  the  results  of  the 
parametric  study  and  to  compare  the  optimum  nozzle  to  one 
designed  by  Rao's  method  (3)  for  the  same  mass  flow  rate  and 
ambient  pressure.  The  effect  of  changing  the  base  pressure 
model  is  illustrated,  and  an  example  of  the  optimization  of 
scramjet  nozzles  is  presented. 


1.  PARAMETRIC  STUDY  TO  DETERMINE  THE  OPTIMUM  COWL  LIP  RADIUS 
AND  INJECTION  ANGLE 


A  Fortran  IV  computer  program  was  written  for  the 


irrotational  flow  problem  presented  in  Section  III.  The 
program  accounts  for  the  wall  shear  stress,  but  does  not 
account  for  the  boundary  layer  thickness.  A  correction  for 
the  boundary  layer  thickness  can  be  made  to  the  optimized 
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contour  by  displacing  the  wall  contour  by  the  magnitude  of 
the  boundary  layer  thickness. 


As  mentioned  in  Section  II,  the  thrust  maximized  in  the 

variational  problem  does  not  represent  the  total  axial  thrust. 

The  total  thrust  is  given  by  the  equation 
E 

77  */  fP  *  PV1  l  flJ  cos  ♦]ydy  -  y|  pa/2 

A 

-/D[P?  ♦  t]ydx  ♦  y’  pb/2  (71) 

A 

whore  the  angles  4  and  6  are  shown  in  Figure  3.  The  last  two 
terms  in  Eq.  (71)  are  obtained  by  neglecting  the  boundary 
layer  thickness  in  Eq.  (37).  The  first  term  accounts  for  the 
pressure  and  momentum  forces  across  the  initial-value  line  EA, 
the  second  term  accounts  for  the  ambient  pressure,  the  third 
term  is  the  pressure  thrust  generated  by  the  plug  contour, 
and  the  last  term  is  the  plug  base  thrust.  The  cowl  lip 
radius  and  injection  angle  will  influence  the  first  two  terms 
while  the  contour  optimization  presented  in  Section  III  is 
used  to  maximize  the  last  two  terms  for  a  specific  choice  of 
cowl  lip  radius  and  injection  angle.  However,  as  explained 
in  Section  IV,  the  radius  of  curvature  of  the  plug  between 
points  A  and  T  is  specified  a  priori,  and  as  a  result,  this 
portion  of  the  nozzle  wall  will  not  necessarily  be  an  optimum. 
Thus,  the  plug  contour  generated  by  the  present  technique 
yields  a  thrust  maximum  for  the  specified  inlet.  To  deter¬ 
mine  the  best  overall  nozzle  when  no  constraints  are  placed 
on  the  cowl  lip  radius  and  injection  angle,  these  two 
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quantities  can  be  varied  parametrically  and  the  optimum  plug 
contour  can  be  obtained  for  each  set  of  these  quantities. 

The  maximum  thrust  nozzle  is  then  selected  from  this  group 
of  nozzles.  Such  a  parametric  study  is  presented  in  this 
section. 

The  parametric  study  was  conducted  for  a  nozzle  which 
has  a  mean  radius  of  curvature  at  the  throat  of  0.705  in.,  a 
downstream  radius  of  curvature  of  0.5  in.,  and  a  length  from 
point  T  to  point  D  (see  Figure  3)  of  12.0  in.  The  mass 
flow  rate,  ambient  pressure,  and  incompressible  skin  friction 
coefficient  were  selected  as  148.08  lbm/sec,  14.7  psia,  and 
0.002,  respectively.  The* engine  was  assumed  to  operate  with 
a  chamber  pressure  of  500.0  psia  and  a  chamber  temperature 
of  6000. 0°R.  The  exhaust  products  were  assumed  to  have  a  gas 
constant  of  56.0  (ft-lbf )/(lbm-#R)  and  a  ratio  of  specific 
heats  of  1.23.  The  constants  for  the  base  pressure  model 
were  selected  as  AA  -  0.846  and  AB  ■  1.3.  Each  of  the  above 
parameters  is  an  input  to  the  computer  program  which  is 
described  in  Appendices  J,K,  and  L.  These  appendices  should 
be  consulted  for  additional  details  concerning  how  these 
parameters  are  used  in  the  program.  The  nozzle  was  designed 
for  a  subsonic  burning  engine,  thus  the  stsrt  line  described 
in  Appendix  H  was  used.  As  the  cowl  lip  radius  and  injection 
angle  arc  changed,  the  throat  height,  2hQ,  is  varied  in  order 
to  keep  the  mass  flow  rate  constant.  A  total  of  20  computer 
runs  were  made  to  determine  the  optimum  cowl  lip  radius  and 


injection  angle.  The  results  of  these  runs  are  presented  in 
Table  1. 

The  data  in  Table  1,  except  the  last  set  where  $  *  -34° 
and  yg  -  7.55  in.,  are  plotted  in  Figures  7  and  8.  Figure  7 
is  a  plot  of  thrust  as  a  function  of  cowl  lip  radius  with 
the  injection  angle  as  a  parameter,  and  Figure  8  is  a  plot 
of  thrust  as  a  function  of  injection  angle  with  the  cowl  lip 
radius  as  a  parameter.  From  Figure  7,  it  was  determined 
that  the  optimum  cowl  lip  radius  would  be  approximately 
7.55  in.,  and  the  optimum  injection  angle  was  determined 
from  Figure  8  to  be  approximately  -34*.  One  final  computer 
run  was  made  using  these  values  for  tie  cowl  lip  radius  and 
injection  angle.  This  run  resulted  in  a  thrust  of  32.881 


in  the  variational  problem 
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TABLE  1.  PARAMETRIC  STUDY  DATA 


COWL  LIP 
RADIUS 
(IN) 


INJECTION 

ANGLE 

(DEGREES) 


THRUST 
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FIGURE  7.  THRUST  VS.  COWL  LIP  RADIUS 
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FIGURE  8.  THRUST  VS.  INJECTION  ANGLE 


TABLE  2.  COORDINATES  OF  THE  OPTIMUM  PLUG  CONTOUR 


Y  - 

R  - 

1.23 

C&  A  ft  “  lbf 

56*°  Tbm  -  "R 

P0 

To 

■  500.0  psia 

-  6000  #R 

x(in) 

/(in) 

e* 

-0.56069 

6.71874 

-36.25027 

-0.55023 

6.71087 

-37.75027 

-0.53999 

6.70272 

-39.25027 

-0.52996 

6.69430 

-40.75027 

-0.52016 

6.68563 

-42.25027 

-0.S10S9 

6.67670 

-43.75027 

-0.50125 

6.66753 

-45.25027 

-0.49216 

6.65811 

-46.75027 

-0.48331 

6.64846 

-48.25027 

-0.40216 

6.55777 

-48.02999 

-0.29091 

6.43493 

-47.64577 

-0.03515 

6.15846 

-46.81925 

0.29695 

5.81585 

-44.30856 

0.99456 

5.21035 

-37.84839 

2.10220 

4.45395 

-31.24354 

3.01742 

3.93915 

-27.61354 

5.08714 

2.98654 

-22.22618 

6.75042 

2.35672 

-19.37574 

8.8531S 

1.67387 

-16.70496 

11.51707 

0.95441 

-13.26458 

FIGURE  9.  OPTIMUM  CONTOUR 


formulation.  This  approach  to  the  problem  is  also  useful  in 

cases  where  either  the  cowl  lip  radius  or  injection  angle  is 

dictated  by  other  considerations.  This  situation  could 

arise,  for  example,  when  the  cowl  lip  radius  is  limited  by 

the  vehicle  sire,  but  no  restrictions  are  placed  on  the 

injection  angle.  The  best  injection  angle  for  the  given 

cowl  lip  radius  could  be  obtained  from  a  plot  such  as 
Figure  8. 


2.  COMPARISON  TO  RAO  NOZZLES 

Since  the  current  formulation  contains  the  results  of 

R3°  C3)  ”  3  Special  case>  «  of  interest  to  compare  the 
nozzles  designed  by  the  two  methods. 


a.  Rao  Results.  The  design  equations  obtained  by  Rao 
were  programmed  in  order  to  compare  his  technique  with  the 
current  formulation.  A  comparison  was  made  with  the  same 
mass  flow  rate,  plug  length,  ambient  pressure,  thermodynamic 
properties,  and  base  pressure  model  as  those  employed  in  the 
parametric  study.  The  Rao  method  yields  an  optimum  cowl  lip 
radius  of  8.33  in.  and  an  optimum  injection  angle  of  approx¬ 
imately  -58.5°  with  a  resulting  thrust  of  34.2S3  lbf.  The 
coordinates  and  slope  of  the  resulting  optimum  contour  are 
given  in  Table  3  and  plotted  in  Figure  10.  By  comparing  the 
data  in  Table  3  with  that  in  Table  2,  it  can  be  seen  that  the 
contour  obtained  by  Rao's  method  lies  above  the  contour 
obtained  from  the  parametric  study.  In  order  to  compare  the 
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TABLE  3.  COORDINATES  OF  THE  RAO  CONTOUR 


Y  -  1.23 

R  -  56.0 

ft  - 

m r 

p0  ■ 

lbf 

T-tr  t  - 

0 

500.0  psia 

6000°R 

x(in) 

y(in) 

0° 

-0.63971 

7,60953 

-60.69463 

-0.52553 

7,41133 

-59.26745 

-0.38991 

7.19374 

-56.76264 

-0.28105 

7.03417 

-54.62384 

-0.11511 

6,81327 

-51.56682 

0.08454 

6.57580 

-48.37210 

0.26305 

6.38348 

-45.92900 

0.54982 

6.10414 

-42.64770 

0.80980 

5.87499 

-40.18842 

1.11665 

5.62702 

-37.74413 

1.75877 

5.16641 

-33.72519 

2.24216 

4.85831 

-31.35732 

3.03421 

4.405S6 

-28.40556 

4.04195 

3.89898 

-25.23198 

5.33714 

3.33063 

-12.27169 

6.55991 

2.85772 

-20.07902 

8.07079 

2.33921 

-17.86199 

9.28531 

1.96623 

-16.29294 

11.51781 

1.37506 

-13.25333 
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shapes  of  these  two  contours,  the  contour  which  resulted  from 
the  parametric  study  was  also  plotted  in  Figure  10.  However, 
0.42065  in.  was  added  to  the  y-coordinates  of  the  contour 
obtained  from  the  parametric  study  so  that  the  two  contours 
would  match  at  point  D.  As  can  be  seen  from  Figure  10,  the 
two  contours  are  almost  identical  in  shape  except  in  the 
throat  region,  the  most  significant  difference  being  in  the 
injection  angle  and  cowl  lip  radius.  Since  the  start  line 
or  sonic  line  assumptions  for  these  two  models  are  not  the 
same,  it  was  suspected  that  the  differences  in  the  results 
were  caused  by  the  dissimilarities  in  the  start  lines.  The 
results  of  an  investigation  to  determine  if  this  was  indeed 
the  case  are  presented  in  the  next  section. 

b.  Importance  of  Start  Line.  Since  Rao  assumed  a 
linear  sonic  line  along  which  the  flow  direction  is  constant, 
an  attempt  was  made  to  duplicate  his  results  by  using  such  a 
start  line  along  which  the  Mach  number  was  slightly  greater 
than  unity.  The  cowl  lip  radius  and  injection  angle  were 
fixed  at  the  values  found  for  the  optimum  Rao  nozzle  and  the 
wall  shear  stress  was  set  equal  to  zero  since  Rao  did  not 
account  for  this  in  his  formulation.  The  general  flow  condi¬ 
tion  produced  by  a  parallel  uniform  flow  with  the  flow  direc¬ 
tion  toward  the  axis  of  symmetry  is  one  of  compression. 

Unless  the  Mach  number  along  the  start  line  is  increased  to 
approximately  1.5,  the  compression  results  in  subsonic  Mach 
numbers  in  the  throat  region.  However,  the  assumption  of  a 
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FIGURE  10,  CONTOUR  COMPARISON 


Mach  number  greater  than  one  along  the  start  line  implies 
that  the  flow  has  passed  through  the  minimum  area  and  should 
be  expanding.  This  requires  the  flow  direction  to  become 
more  negative  along  the  start  line,  EA.  By  decreasing  the 
flow  direction  from  3  to  6  degrees  along  the  start  line,  the 
compression  problem  was  eliminated.  Typically,  the  flow 
direction  at  point  E  was  fixed  at  -56.0°  and  decreased  uni¬ 
formly  to  -62.0°  at  point  A.  The  resulting  plug  contour 
matched  the  Rao  contour  reasonably  veil  but  the  thrust  was 
approximately  2700  lbf.  lower. 

One  final  attempt  was  made  to  duplicate  Rao's  results. 

A  right-running  characteristic  near  the  throat  was  taken 
from  the  Rao  nozzle  flow  field  and  used  as  a  start  line. 

This  start  line  produced  a  contour  almost  identical  to  Rao’s. 
The  y-coordinate  at  point  D  was  0.1364  in.  lower  than  Rao’s, 
and  the  thrust  was  34,373  lbf.  compared  to  34,375  lbf.  for 
Rao's  nozzle. 

/ 

These  results  indicate  that  the  start  line  assumptions 
are  very  important  in  the  design  of  optimum  plug  nozzles, 
and  approximations  in  this  region  should  be  carefully  eval¬ 
uated. 

3.  EFFECT  OF  THE  BASE  PRESSURE  MODEL 

Another  possible  source  of  error  in  plug  nozzle  design 
is  the  base  pressure  model.  The  importance  of  the  base 
pressure  model  is  illustrated  in  this  section. 


After  the  parametric  study  was  completed  and  the  opti¬ 
mum  nozzle  configuration  determined ,  the  equation  used  to 
calculate  the  base  pressure  was  changed  from  liq.  (G-l)  to 
hq.  (G-?)  to  determine  the  effect  of  the  base  pressure 
model.  All  other  parameters  were  set  at  the  values  used  for 
the  parametric  study,  and  the  cowl  lip  radius  and  injection 
angle  were  set  at  their  optimum  values  of  7.55  in.  and  -34°. 
The  coordinates  and  slope  of  the  resulting  contour  are  given 
in  Table  4  and  plotted  in  Figure  11.  The  contour  obtained 
from  the  parametric  study  is  also  plotted  in  Figure  11.  As 
can  be  seen  from  this  figure,  the  base  pressure  model  has  a 
considerable  effect  upon  the  shape  of  the  plug  contour.  The 
base  height,  yn>  increased  from  0.954  in.  to  2.34  in.  and  the 
wall  slope  at  point  D  increased  from  -13.26°  to  -3.08°.  Ir, 
addition,  the  thrust  increased  to  32,965  lbf.  because  of  the 
higher  base  pressure.  Since  the  thrust  has  changed,  it  is 
expected  that  the  optimum  cowl  lip  radius  and  injection 
angle  will  also  be  different.  Thus,  in  addition  to  a  direct 
thrust  contribution  on  the  plug  base,  the  ualue  of  the  base 
pressure  significantly  influences  the  shape  of  the  optimum 
contour. 

4.  OPTIMIZATION  OF  SCRAMJET  NOZZLES 

The  methods  and  results  presented  to  this  point  are 
applicable  to  supersonic  combustion  engines  as  well  as  to 
those  which  burn  subsonically .  However,  the  starting  condi¬ 
tions  for  these  two  applications  are  not  the  same.  An 
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TABLE  4.  COORDINATES  OF  AN  OPTIMUM  CONTOUR 

FOR  THE  ALTERNATE  BASE  PRESSURE  MODEL 


Y  -  1.23 


R  ■  56.0 


ft  -  lbf 

rar-'  °r 


pQ  *  500.0  psia 


Tq  »  6000°R 


x(in) 


y  (in) 


e 


-0.56069 

6.71874 

-36.25027 

-0.55023 

6.71087 

-37.75027 

-0.53999 

6.70272 

-39.25027 

-0.52996 

6.69430 

-40.75027 

-0.52016 

6.68563 

-42.25027 

-0.51059 

6.67670 

-43.75027 

-0.49819 

6.66442 

-45.75027 

-0.44272 

6.60622 

-46.29203 

-0.33777 

6.49721 

-45.88483 

-0.19453 

6.35086 

-45.35040 

-0.00101 

6.15730 

-44.66440 

0.34386 

5.83114 

-41.57284 

0.90107 

5.38449 

-36.00408 

1.72398 

4.85222 

-30.05107 

2.55635 

4.41335 

-25.69669 

3.61048 

3.95442 

-21.49032 

4.92072 

3.49325 

-17.40459 

6.S3289 

3.05192 

-13.30646 

8.49709 

2.66542 

-  9.02277 

11.58406 

2.34099 

-  3.08106 

FIGURE  11.  OPTIMUM  CONTOUR  FOR  ALTERNATE 
BASE  PRESSURE  MODEL 


illustration  of  the  optimization  of  scramjet  nozzles  is  pres 
ented  in  this  section. 

The  flow  conditions  at  the  entrance  to  scramjet  nozzles 
are  expected  to  be  nonuniform  in  nature  and  well  within  the 
supersonic  range.  The  nonuniform  nature  of  the  flow  is  pro¬ 
duced  by  the  inlet  effects  and  the  combustion  process.  As 
was  demonstrated  in  the  parametric  study,  it  is  advantageous 
in  the  case  of  subsonic  burning  engines  to  inject  the 
exhaust  gases  toward  the  axis  of  symmetry.  This  may  not  be 
feasible  for  scramjets  since  the  flow  throughout  the  engine 
is  supersonic  and  would  require  a  compression  turn.  The 
losses  inherent  in  the  resulting  shock  could  outweigh  any 
advantages  to  be  gained.  A  detailed  analysis  would  have  to 
be  carried  out  before  any  definite  conclusions  could  be  drawn 
but  for  the  purpose  of  illustrating  the  design  of  a  scramjet 
nozzle,  the  injection  angle  was  assumed  to  be  zero.  The 
start  line  was  assumed  to  be  a  straight  line  along  which  the 
Mach  number  had  a  constant  value  of  1.5.  The  downstream 
radius  of  curvature  was  selected  as  0,5  in.  and  the  length 
from  point  T  to  point  D  was  chosen  as  8.0  in.  The  mass  flow 
rate,  ambient  pressure,  and  incompressible  skin  friction 
coefficient  were  given  values  of  50.0  lbm/sec,  14.7  psia, 
and  0.002,  respectively.  The  engine  chamber  conditions  were 
selected  as  pQ  -  500.0  psia  and  Tq  -  6000°R.  The  exhaust 
products  were  assumed  to  have  a  gas  constant  of  56.0 
(ft-lbf)/(lbm-#R)  and  a  ratio  of  specific  heats  of  1.23. 


The  constants  for  the  base  pressure  model  were  selected  as 
AA  =  0.846  and  AB  =  1.3.  Finally,  the  cowl  lip  radius  was 
fixed  at  6.0  in.  The  cbordinates  and  slope  of  the  optimum 
contour  which  resulted  from  these  data  are  given  in  Table  5 
and  plotted  in  Figure  12.  This  contour  produced  a  thrust  of 
9722  lbf . 

As  these  results  indicate,  the  contour  follows  the 
specified  radius  of  curvature  at  the  nozzle  inlet  until  the 
slope  reaches  -39.5°.  The  contour  then  begins  to  flatten 
out  and  the  slope  at  point  D  is  about  the  same  as  obtained 
in  the  previous  cases.  The  maximum  wall  slopes  obtained  are 
less  than  those  calculated  for  the  other  cases,  due  to  the 
design  constraint  which  requires  the  initial  injection  angle 
to  be  zero.  Should  moderate  injection  angles  be  permissible 
a  parametric  study,  such  as  presented  at  the  beginning  of 
this  section,  could  be  performed  to  obtain  the  best  overall 


TABLE  5.  COORDINATES  OF  AN  OPTIMUM  SCRAMJET  NOZZLE 


Y  ■  1.23  pQ  -  500.0  psia 

R  "  56,0  TFm“"1"R  To  "  6000°R 


x(in) 

y  (in) 

0° 

0.00000 

5. 56647 

0.00000 

0.02181 

5.56600 

-2.50000 

0.043S8 

5.56457 

-5.00000 

0.06526 

5.56219 

-7.50000 

0.08682 

5.55888 

-10.00000 

0.10822 

5.55462 

-12.50000 

0.12941 

5.54944 

-15.00000 

0.1S03S 

5.S4333 

-17.50000 

0.17101 

5.53632 

-20.00000 

0.19134 

5.52841 

-22.50000 

0.21131 

5.51963 

-25.00000 

0.23087 

5.50998 

-27.50000 

0.25000 

5.49949 

-30.00000 

0.26865 

5.48817 

-32.50000 

0.28679 

5.47605 

-35.00000 

0.30438 

5.46315 

-37.50000 

0.31804 

5.45228 

-39.50000 

0.32071 

5.45007 

-39.89710 

0.45381 

5.34156 

-38.42232 

0.76198 

5.11254 

-34.84466 

1.51175 

4.65257 

-28.66838 

2.50288 

4.16818 

-23.76215 

3.47465 

3.77417 

-20.52422 

4.923S8 

3.28370 

-17.04437 

7.03519 

2.71383 

-13.31267 

8.32071 

2.43250 

-11.39107 

SECTION  VI 

SUMMARY  AND  RECOMMENDATIONS 


An  analysis  has  been  presented  for  the  optimization 
of  plug  nozzle  contours  with  boundary  layer  effects 
accounted  for  in  the  optimization.  The  solution  makes  no 
particular  assumption  about  the  upstream  nozzle  geometry 
but  simply  requires  the  flow  conditions  along  a  start  line 
to  be  available  in  order  to  initiate  the  flow  field  solu¬ 
tion.  The  results  can  then  be  applied  to  supersonic  burn¬ 
ing  engines  as  well  as  to  those  which  burn  subsonically . 

The  problem  was  formulated  for  rotational  and  irrotational 
flow.  A  general  isoperimetric  constraint  was  imposed 
upon  the  plug  contour  in  the  region  of  supersonic  flow.  A 
complete  set  of  partial  differential  equations  with  suffi¬ 
cient  boundary  conditions  was  obtained  for  determining  the 
flow  properties  and  Lagrange  multipliers.  A  method  was 
presented  for  each  of  the  problem  formulations  to  determine 
if  a  given  contour  was  an  optimum  and  a  relaxation  tech¬ 
nique  was  used  to  obtain  a  solution  to  the  irrotational 
flow  problem. 

The  design  equations  for  the  irrotational  flow  problem 
were  programmed  in  Fortran  IV  and  the  computer  program  was 
described.  This  program  was  used  to  carry  out  a  parametric 


59 


study  to  determine  the  optimum  cowl  lip  radius  and  injection 
angle  when  the  isoperimetr ic  constraint  is  one  of  fixed 
length.  The  resulting  optimum  nozzle  was  compared  to  one 
designed  by  Rao's  method.  The  importance  of  determining  the 
base  pressure  accurately  was  illustrated  and  an  example  of 
scramjet  nozzle  optimization  was  presented. 

During  this  study  it  has  become  apparent  that  several 
aspects  of  the  plug  nozzle  optimization  problem  could 
benefit  from  additional  work.  First,  the  analytical  meth¬ 
ods  of  determining  the  transonic  flow  conditions  in  sub¬ 
sonic  burning  engines  need  to  be  verified  experimentally. 
The  flow  conditions  at  the  throat  determine  to  a  large 
extent  the  best  injection  angle  and  affect  the  flow  con¬ 
ditions  along  the  exit  characteristic.  Second,  there  is 
a  need  for  a  base  pressure  model  which  has  direct  applica¬ 
tion  to  plug  nozzles.  The  importance  of  determining  the 
base  pressure  accurately  has  been  demonstrated  but  one 
finds  very  little  base  pressure  data  in  the  literature 
which  is  directly  applicable  to  plug  nozzles.  Third,  it 
would  be  desirable  to  include  the  ambient  pressure  and 
injection  angle  in  the  problem  formulation,  thereby  removing 
the  need  for  a  parametric  study  to  determine  the  optimum 
cowl  lip  radius  and  injection  angle. 
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APPENDIX  A 


DERIVATION  OF  THE  THRUST  EXPRESSION 

The  axial  thrust  to  be  maximized  is  obtained  by  summing 
the  integrated  pressure  and  shear  forces  on  the  plug  T'D* 

(see  Figure  1)  and  the  pressure  acting  on  the  base  D*C. 
Consider  the  forces  acting  on  the  plug  surface  segment  shown 
in  Figure  A-l.  The  segment,  of  length  ds,  when  rotated  about 


FIGURE  A-l.  PLUG  NOZZLE  THRUST  SEGMENT 
the  x-axis  sweeps  out  an  area  given  by 

dA  ■  2ir  y  ds 
7  w 


f 


* 


I  he  coord i  nates  (x,y)  locate  a  point  on  the  boundary  of  the 
inviscid  core  (Figure  A-l)  and  (x  ,  y  )  locate  a  corres- 
ponding  point  on  the  plug  surface.  The  relationship  between 
these  two  sets  of  coordinates  is  given  by: 

*w  -  x  ♦  6*  sin  0  (A-2) 

yw  -  y  -  cos  e  (a-3) 

where  5*  is  a  boundary  layer  thickness  measured  normal  to 
the  boundary  of  the  inviscid  core. 

ft  will  be  assumed  that  the  pressure  which  exists  at  a 
given  point  on  the  boundary  of  the  inviscid  core  is  the  same 
at  the  corresponding  wall  point.  The  force  due  to  pressure 
acts  normal  to  the  surface  and  can  be  written  as  pdA.  The 
force  due  to  shear  must  also  be  considered.  This  force 
acts  parallel  to  the  wall  and  is  written  as  xdA.  The  thrust 
to  be  considered  is  due  to  the  axial  components  of  these  two 
forces.  Thus, 

dT  *  pdA  sin  (0  ♦  y)  ♦  xdA  cos  (0  4  y)  (A-4) 

where  the  positive  direction  is  to  the  right.  Equations 
(A-l)  and  (A-3)  can  be  substituted  in  Eq.  (A-4)  to  yield 

dT  -  p2ir(y  -  6')  ds  sin  (0  ♦  y) 

♦  x2ir(y  -  5’)  ds  cos  (0  ♦  y)  (A-5) 

where  6'  ■  6*  cos  0.  It  is  apparent  from  Figure  A-l  that 
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where  ds  and  ds'  are  related  as  shown  in  Figure  A- 2 
relationship  between  them  can  be  expressed  as: 


FIGURE  A- 2.  THRUST  SEGMENT- INVISCID  CORE 

BOUNDARY  RELATIONSHIP 


If  the  boundary  layer  thickness,  6*,  is  small 
also  be  small.  Thus,  for  small  v: 


Therefore,  from  Eq.(A-8)  and  the  trigonometric  identities 


Substitution  of  Eq.(A-9)  into  Eqs.(A-6)  yields 


dy  *  ds  sin  0 


dx  *  ds  cos  0 


(A- 12) 


t 

ancf  substitution  of  Eqs.(A-3),  (A-9)  ,  and  (A-10)  into  hq. 
(A-7)  yields 

d  ( y  -  6  * )  *  ds  sin  0  +  y  cos  0  ds  (A-13) 

Using  Eqs . (A-10)  and  (A-ll),  Eq.(A-S)  can  be  written  as 

^  *  p(ds  sin  0  ♦  y  cos  0  ds) (y  -  6') 

+  x(ds  cos  0  -  Y  sin  0  ds) (y  -  d')  (A-14) 

which, upon  substitution  of  Eq.(A-lO),  reduces  directly  to 

S  *  [p(1  +  )  dy  ♦  x(l  -  y  tan  0)dr] (y  -  fi'XA-15) 

Since  the  effect  of  wall  shear  on  thrust  is  being  considered, 
it  is  desirable  to  retain  those  terms  which  are  of  the  order 
of  t  or  lower.  Thus,  the  term  ty  tan  0  can  be  dropped  since 
it  is  of  an  order  higher  than  x.  By  considering  Eq.(A-13), 
Eq.(A-lS)  can  be  written  as 

.  [p(y  -  6')  +  T)(y  -  «')dx  (A-16) 

where  ( * )  indicates  the  total  derivative  with  respect  to  x. 
The  final  axial  thrust  expression  is  obtained  by  integrating 
Eq . (A- 16)  from  T  to  D  and  adding  the  base  pressure  contribu¬ 
tion.  Thus, 

tI  ’  fD  lP(y  -  *')  ♦  T]  Cy  -  S')dx  -  (yD  -  «£)2Pb/2 
J  T  (A-17) 
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Since  y  is  negative  along  TD,  Eq.(A-17)  will  produce  a 
negative  value  for  thrust.  Without  loss  of  generality, 
the  signs  are  changed  so  that  a  positive  value  of  thrust 
is  obtained.  The  thrust  expression  becomes 

T  f D 

7*m  •JT[P(y  •  +  Tl(y  -  «’)dx  ♦  (yD-S£)2pb/2 

(A-18) 
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APPENDIX  B 


CALCULUS  OF  VARIATIONS 


Miele  (15)  has  presented  the  calculus  of  variations  for 
a  functional  of  the  form 


I 


F(x,y,zk,pk,qk)dxdy  +  £ G(x,y ,zk,y ,*k)dx 
S  B 


(B-l) 


The  current  formulation,  however,  requires  the  maximization 
of  a  functional  which  has  the  form 


I  -  JJ  F(x,y,zk,pk,qk)dxdy  +  £  G(x,y ,  zfc,y  ,ik)dx 


B 


,  ,  (B-2) 

♦  *(yc.xc.*k  ) 

Thus, it  is  necessary  to  account  for  the  first  variation  of  the 

term  4>(y  ,x  ,z.  )  which  is  to  be  evaluated  at  a  corner  point 
c  c 

c.  The  starting  point  for  this  will  be  the  first  variation 
of  the  functional  (B-l)  as  given  by  Miele  (15). 

For  purposes  of  illustration,  Miele  assumed  the  presence 
of  only  one  corner  line  in  the  class  of  admissable  surfaces 
and  the  presence  of  only  one  corner  point  in  the  class  of 
boundary  lines  examined.  His  expression  for  the  first  variation 
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1 


is  given  as 


f  j,1'. 


V- 


(FqkV  {zkdxdy 


*/  k"itF*k  ‘  (FPk)x  -  Vr1  izkdxdy 


/n 

Mx  ♦  nAy  ^  Sk62k)dx 


/n 

(AX6x  ♦  AYAy  ♦  Z  Az-Az- )dx 

k«l  K  * 


♦  [A(G  -yGy  -  Z  zkG*  )Ax  ♦  AGyAy  ♦  Z  AC^  Azk)  -  0  (B-3) 

1  k  ®  i 


where  pk  and  qk  are  the  partial  derivatives  of  ^he  generic 
dependent  variable,  zk>  with  respect  to  x  and  y  respectively, 


and 


€  -  X  -  yE(G,y)  -  Z  z.  E(G,z. ) 

k-1  K  k 


(B  -  4) 


fl  ■  Y  ♦  E(G,y) 


(B-5) 


Ck  "  +  E(G, zk)  9 


(k  -  1, . . .  ,n) 


(B-6) 


X  *,.£.pkFa  *  y(F  ’  E  PkFn  ) 
k-1  *  qk  k-1  K  pk 


(B-7) 


i  > 


*  '  V- 


ft'iLL.  ‘  1 


*  • 


(F  -I  qkF-  )  -  y  I  qkF 
k-1  K  k-1  K  pk 


(B-8) 


> '  ‘  \  '  r\  ■ 


(k  *  1  •  •  •  •  (ii) 


(B-9) 


E(G,y)  *  Gy  -  dGy/dx 


(B-10) 


E(G,i.)  -  G,  -  dGl  /dx  ,  (k  -  1 . n) 


(S- 11} 


The  A ( . . . )  under  the  ^  represents  the  difference  of  the 
quantity  (...)  evaluated  on  the  outer  side  of  the  corner  line 


and  the  same  quantity  evaluated  on  the  inner  side.  The  A(...) 


included  within  the  brackets  represents  the  difference  of  the 


quantity  (...)  evaluated  before  the  corner  point  and  the 


same  quantity  evaluated  after  the  corner. 


The  first  variation  of  Eq.(B-2)  can  be  obtained  by  adding 
the  first  variation  of  *  to  Eq.CB-3).  This  variation,  given  by 


6$  *  <5  -f  $ 


«y  ♦  *  1  ♦ 
c  yc  xc  c  k-1 


zk  *zk 
c  *c 


can  be  combined  with  the  bracketed  terms  of  Eq.(B-2)  to  yield 


[(G  -  yG*  -  E  ikG:  )6x  ♦  G*6y  ♦  E  G’  5z.]  ♦  ♦  6x 

y  k-1  k  *k  y  k-1  k  *  xc-  xc  C 


♦  *  6yc  ♦  E  $2  6zk  -[CG  -  yG’  -  E  zkG*  )6x 


k-1  k  "c 
c 


k-1  *  ‘k 


*G'4y  ♦  I  G1  {!k] 

7  k-1  k  K  Xc+ 


(B- 12) 


V 


X 

z  -V 


vr/V 


! 


r 


where  the  subscripts  c-  and  c+  denote  the  conditions  immediately 
before  and  after  the  corner  point  of  the  boundary  line,  res¬ 
pectively,  Since  the  variation,  6^,  enters  only  the  bracketed 
term  from  which  the  corner  condition  along  the  boundary  line 
is  obtained,  the  remaining  necessary  conditions  will  be  exactly 
those  given  by  Miele  (IS). 

The  Euler  equation  which  must  be  satisfied  on  the  surface 
S  is  given  by 


When  Eq.(B-13)  is  combined  with  Eq.(B-3)  the  transversality 
condition  is  obtained. 


The  final  condition  is  obtained  by  combining  Er.(B-3)  with 


Eqs . (B - 13)  through  (B - 15)  and  the  expression  (B-12) .  This 
corner  condition,  given  by 


£CG  -  yG* 


n  .  n 

-  Z  z.G*  )6x  ♦  G*  fiy  ♦  Z  G*  6z 
k-1  k  zk  y  k-1  zk 


n 

*  *[(G  “yGv 

yc  c  k-1  hc  Kc  y 


-  Z  i.G ;  )6x  +G‘6y 
k-1  k  zk  y 


n 

+  E  (S’  i 
k-1  zk 


0 


(B-l 


must  be  satisfied  for  every  set  of  variations  fix,  fiy,  and  fiz^ 
consistent  with  the  conditions  imposed  upon  the  location  of 
the  corner  point  of  the  boundary  line.  This  last  condition 
is  the  only  one  different  from  those  given  by  Miele.  How¬ 
ever,  in  the  event  that  a  corner  point  on  the  boundary  does 
not  have  a  function  ♦  to  be  evaluated  at  that  location  then 
the  corner  condition  reduces  to  that  given  by  Miele. 

When  more  than  one  corner  point  is  present  an  expression 
of  the  type  given  in  Eq.(B-16)  arises  for  each  corner  and  the 
sum  of  all  such  expressions  is  equated  to  zero.  Only  when 
the  variations  at  the  corners  are  independent  can  Eq.(B-lb) 
be  applied  to  each  corner  separately. 


i  f 

I 
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APPENDIX  C 


DERIVATION  OF  THE  EULER  EQUATIONS 


The  general  form  of  the  Euler  equations  is  given  by 
Eq. (B-13) 


F,  -  (F_  )„  -  (F„  ) 


(B- 13) 


This  equation  must  be  satisfied  for  each  of  the  generic  dependent 
vaiiables  u,v,p  and  p.  The  fundamental  function,  F,  given  by 
Eq. (9)  is 


F  *  \CPux  ♦  PVy  ♦  upx  ♦  vpy  *  pv/y)  ♦  X2(puux  ♦  pvuy  ♦  pxJ 
♦  Mpuvx  *  pvvy  *  Py>  *  \(Upx  *  vPy  ’  a2°Px 


-  *2vpy) 


For  k  -  Is  *  u,  pk  -  ux,  and  q^  -  u 


Taking  the  derivatives  indicated  in  Eq.(B-13)  yields 


U  '  VPX  +  X2pux  *  X3pvx  +  MPX  •  *lp,> 


(C-J) 


FU  *  Vx  +  MU 
X 


(C-2) 


Fu  "  Xipv 

y 


(C-3) 


When  liquations  (C-l)  through  (C-3)  are  substituted  into  Eq. 
(B- 13)  the  following  is  obtained: 


X,ypx  ♦  +  Xt<>vx  + 


(Xjpv)y  -  0 


Expansion  of  Eq.(C-4)  yields 


-X 


"x  '  X»vx  '  p  X*(p: 


Vpx  -  a»px) 


-  a*px)  ♦  yX, 


-  Uxpy  ♦  *2pu)x 

(C-4) 

♦  uX2  ♦  vX2 
x  y 


*  y  A2  (C-5) 

Equation  (C-5)  is  the  Euler  equation  for  the  dependent  variable 
u.  The  same  procedure  is  followed  to  obtain  the  Euler  equation 
for  each  of  the  other  dependent  variables. 

For  k  -  2:  zk  -  v,  pk  *  vx>  and  qk  -  vy. 

\ 

Fv  *  xiypy  *  X*p  +  X»puy  +  X>pvy  *  X*(py  '  ,*py)  (C'6) 

F  *  X  pu  (C-7) 

v  3 


f  *  x,py  +  x3pv 

y 


(C-8) 


Substitution  into  Eq.(B-13)  yields 


Xl/Py  +  XjP  +  MUy  +  XsPVy  *MPy  ‘  a*Py>  '  (X|Pu) 


-  (Xtpy  ♦  XjPv)y  "  0 


76 


which  reduces  directly  to 


x,uy 


-  X.V. 


p  x‘(py 


-  **pJ  ♦  y*,  +  uxs  +  vx, 


V  x 

y  As 


For  k  «  3:  zk  *  P.  Pk  ■  Px»  and  %  “  Py- 
The  derivatives  with  respect  to  p  and  p  are  taken  using  the 


relation 


a2  -  12 
P 


such  that 


(•*)_  “  al/p.  (aJ)„  -  «Vp 


Thus, 


p  '  'X*p  (upx  *  vV 


F  -  X  ♦  Xu 

P„  1  ' 


FPy  +  X*»V 


Using  the  above  results,  Eq.(B-13)  becomes 

a2 

♦  **v„  +  Xki  (up.  +  vp..)  ♦  X.  +  X.  ♦  uX 


* 


* 


:p  -  Xiyux  vy  ♦  \%v  ♦  Xa(uux  ♦  vuy)  ♦  Xs(uvx  ♦  vvy) 


♦  X„(a2up  /p  ♦  a2vp  / p) 


C  C- 14) 


Fq  -  X,yv  -  X%a2v 
Mx 


CC- 15) 


F  -  X  yv  -  X  a2v 
o  1  % 


(C-16) 


Substitution  of  Eqs.(C-14)  through  (C-16)  into  Eq.(B-13)  yields 
X  j (yu  ♦  yv  ♦  v)  ♦  X2(uux  ♦  vu  )  ♦  X,(uvx  ♦  vvy) 


♦  X*(a2up  /p  ♦  a2vp  /p)  ♦  (Xjyu  -  X%a2u) 


-  (X xyv  -  X%a2v)y 


(C- 17) 


which  can  be  expanded  to 

X  (mi  ♦  vu  )  ♦  X  (uv  ♦  vv  )  -  yuXj  ♦  a2(uXj 
s  x  y  •  «  /  v 


♦  X^ufa’Pjj/p  -  *lPx/P)  ♦  X*v(a*p  /p  •  a2py/p)  -  yvX, 


♦  a*(vXJ  -  yul,  +X„  a2(upx  ♦  vp  )/p  -  0 


(C-IK. 


Multiplication  of  Eq.(C-13)  by  -a*,  addition  of  the  result  to 
Eq . (C- 18) ,  and  use  of  the  two  momentum  equations 


results  in 


-  *,PX/P  -  *,pv/p  ~  yux  -  yvA  -  a2X  -  a2X 

X  y  x  V 

♦  A>a2(upx  ♦  vpy  -  ua2px  -  va2p  )/p  «  0  (C-19) 

The  last  tern  in  the  above  equation  is  identical  to  Eq.(S). 

Thus,  Eq.(C-19)  reduces  to 

o  A*PX  *  o  Xspy  *  yuAi  *  yvXi  *  a*x2  *  fl2x,  *  0  (C-20) 

7  x  y  x  y 

Thus,  the  Euler  equations  are  Eqs.(C-5),  (C-9),  (C-13), 
and  (C-20). 


APPENDIX  D 


DERIVATION  OF  THE  TRANSVERSALITY  CONDITIONS 

Since  the  function  G  is  not  the  same  on  all  portions  of 
the  boundary  of  the  region  (R)  and  different  assumptions 
apply  to  the  variations,  it  is  necessary  to  consider  each 
portion  of  the  boundary  separately.  The  general  transversality 
condition  which  must  be  satisfied  is  given  by  Eq.(B-14) 


n 


£6x  ♦  n6y  ♦  £  r  5Z  »  o 

k-1  K  K 


(B- 14) 


The  terms  in  this  equation  are  defined  by  Eqs.(B-4)  through 
VB-11)  and  the  function  G  along  each  portion  of  the  boundary 
is  given  by  Eqs.(10)  through  (12)  which  are 


G  *  - [f  +  Cjg  +  C2yp(uy  -  v) ] 


G  -  0 


along  TD 


along  DE 


(10) 

(11) 


G  -  0 


along  ET 


(12) 


Since  the  fundamental  function,  F,  is  zero,  Eq. (B-14)  can 
be  written  as 


kV(Fqk  '  yFPk)(Pk6X  *  qk6y  '  6Zk)  +  (6zk  ’  ^k6x^B(G,zk^ 
♦  E(G,y)(6y  -  y 6x)  -  0  (D-l) 
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siijce  the  flow  properties  along  and  the  location  of  this  line 
are  determined  from  the  fixed  upstream  geometry.  Therefore, 
Eq.(B-14)  is  satisfied  identically. 

2.  CONDITIONS  ALONG  DE 

Since  the  function  G  *  0  along  this  portion  of  the  boundary, 
E(G,zk)  -  E(G,y)  -  0 


and  the  transversality  condition,  Eq.(D-l),  becomes 


ii(\  *'yFpkHPk<x  +  qk®y '  s*k)  * 0 


Gas  property  variations  along  ED  are  arbitrary  which  requires 
the  coefficient  of  6zk  to  be  zero.  If  this  is  done  no  require 
ment  need  be  placed  on  the  variations  of  &x  and  ay.  Thus,  it 
is  required  that 


\  -  yFpk  •  0 


(k  ■  1, . . .  ,4) 


For  k  -  1:  *k  •  u,  pk  -  ux,  and  qk  -  u 

The  derivations  F  and  F  ,  given  by  Eqs.(C-2)  and  (C-3), 

pk  qk 


are  substituted  into  Eq.(D-3)  which  results  in 
(v  -  yu)X2  -  XAyy  ■  0 


For  k  -  2:  zk  -  v,  pk  -  vx,  and  qk  -  v 
The  derivatives  F  and  F  ,  given  by  Eq».(C-7)  and  (C-8),  are 


■ 


also  substituted  into  Eq.(D-3)  to  yield 

(v  -  yu)Xs  ♦  X4y  ■  0  (D-5) 

For  k  =  3:  *  P.  Pk  s  Px»  and  %  *  py* 

In  this  case  the  derivatives  and  F  are  given  by 

pk  qk 

bqs.(C-H)  and  (C- 12)  and  when  substituted  into  Eq.(D-3) 
yields 

X3+  (v  -  yu)  X„  -  yX2  *  0  CD-6) 

For  k  *  4:  z^  *  Pi  Pk  *  Px>  and  qk  *  py* 

The  derivatives  F  and  F0  ,  given  by  Eqs.(C-15)  and 

pk  '  qk 

(C-16)  are  substituted  into  Eq.  (D-3)  which  results  in 

X3y  -  Xva2  -  0  (D-7) 

Equations  CD- 4)  through  (D-7)  must  be  satisfied  along  ED. 
However,  these  four  equations  can  be  combined  to  yield  the 
equation  of  a  right-running  characteristic  which  can  be  used 
to  replace  one  of  the  four.  First,  eliminating  Xs  from  Eqs. 
(D-5)  and  (D-6)  results  in 

X3y  -  (v  -  yu)2X„+  y(v  -  y»)  *2“  0  ^D"8^ 

An  expression  for  ^  can  be  obtained  from  Eq.(D-4)  and  sub¬ 
stituted  into  Eq. (D-8)  to  yield 

X ly ( 1  ♦  y2)  -  (V  -  yu)2XH  -  o  (D- 9) 

Using  Eq. (D- 7)  to  eliminate  Xj  from  Eq.(D-9)  results  in 


Since  Xk  will  not  in  general  be  zero,  the  bracketed  term  in 
Eq. CD- 10)  must  vanish.  Thus, 


As  snown  in  Appendix  F,  Eq.(D-ll)  is  the  equation  of  a  right 
running  characteristic.  For  convenience,  Eq.(D-ll)  will  be 
used  to  replace  Eq.(D-6).  Thus,  the  equations  which  must  be 
satisfied  along  DE  are:  (D-4),  (D-5),  (D-7),  and  (D- 11). 


3.  CONDITIONS  ALONG  TD 


Along  this  portion  of  the  boundary  variations  in  the 
gasdynamic  properties  are  arbitrary,  thus,  their  coefficients 
must  vanish.  From  Eq.(B-14)  it  is  required  that 


When  equations  (C-2),  (C-3)  and  (D-13)  are  substituted  into 
Eq.(D-12)  the  following  is  obtained: 


For  k  -  2:  zR  *  v,  pk  *  vx,  and  qk  -  v  . 

U  .  ; 

li((],zk)  =  4.  c 2py  (D- 15) 

Substitution  of  Eqs.(C-7),  (C-8)  and  (D-1S)  into  Eq.(D-12) 
yields 


*iPy  '  C*py  -  0 


or 


X,  -  c2 


For  k  »  3:  zk  *  Pk  *  Px.  and  <«k  *  Py 


E(C,zk)  -  -f  -  C,g 


(D-16) 


(D-17) 


Substitution  of  Eqs.(C-ll),  (C- 12)  and  (D-17)  into  Eq.(D-12) 
yields 


-yX2  +  X,  ♦  £  ♦  C,g  -  0 


or 


uA,  -  vA,  ♦  uf  ♦  ug  C ,  ■  0 

9  *  D  D  1 


where  f  *  y(y  -  6’) 


(D-18) 


For  k  *  4:  -  p  ,  -  px,  px,  and  qk  -  p^ 

E(G,zk)  ■  -  f  -  Clgp 


■i  'Pju 


but  f  *  0,  therefore 


Substitution  of  Eqs.(C-lS),  (C-16)  and  (D-19)  into  Eq.(D-12) 
yields  only  the  identity  0*0. 

Variations  in  x  and  y  are  also  arbitrary  along  TD.  How 
ever,  it  is  convenient  to  rearrange  the  coefficients  of  6x 
and  6y  in  Eq.(B-14)  as 


Thus* for  arbitrary  variations  in  x  and  y  it  is  required  that 


The  expressions  for  E(G,zk)  as  k  takes  on  the  values  1  to  4 
are  given  by  Eqs.(D-13),  (D-15),  (D-17),  and  (D-19).  The 
function  E(G,y)  is  written  as 


Substitution  into  Eq.(D-20)  yields 


(pyu)]  -  ypu 


Using  the  continuity  equation  and  the  fact  that  TD  is  a  stream¬ 
line,  it  can  be  shown  that 

*  3!  (ypu)  *  ypVy  -  ypyUy  (D-23) 

Substitution  of  Eq.(D-23)  into  Eq.(D-22)  shows  that  the  coef¬ 
ficient  of  C2  is  2ero. 

Further  simplifications  to  Eq.(D-22)  can  be  obtained  by 
using  the  following  expanded  terms 


{Y  ■  A  fy  ■  +T  -  tr  ■  «•)  al 

(D-24) 

•  (y  -  «')  a£  "  *  (x  •  *')  px  -  (y  -  «')ypy 

(D-2S) 

fppy  *  y(y  -  «')py  -  «'(y  -  6')Py 

(D-26) 

Substitution  of  Eqs.(D-24)  through  (D-26)  into  Eq.(D-22) 

dc»  A 

'  ypu  33 T  +  Cl(Py*p  *  *y  '  33F  *  T  •  (y  *  «')px 

yields 

-  «'(y  -  «')py  ■  o 

(D-27) 

From  Eqs.(3)  and  (4) 

px  -  -  puux  -  pvuy  -  -  pu  § 

(D-28) 

Py  *  -  PUVX  -  pw  *  -  pu  gj 

(D-29) 

Substitution  of  these  expressions  into  Eq.(D-27)  gives 


Equation  (D-30)  can  be  rewritten  as 


Thus,  Eqs.(D-14),  (D-16),  (D-18),  and  (D-31)  must  be 
satisfied  along  TD. 
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APPENDIX  E 

DERIVATION  OF  THE  CORNER  CONDITIONS 

Since  flows  in  which  corner  lines  arise  are  not  to  be 
considered,  the  only  corner  condition  which  must  be  satisfied 
at  points  E,  T,  and  D  is  given  by  Eq.(B-16) 

[(c  -  yG-  -J  ikV4*  *  Gy*y  VZk] 


y  k-i  zk 


♦  ♦  fix  ♦  •  6y  ♦  £  ♦  fiz.  -  [(G  -  yG* 

xc  c  yc  c  k*l 1  2k  kc  y 


n  .  n 

I  z.G*  )  fix  ♦  G*6y  ♦  E  G*  fiz.] 
r*l  k  zk  y  k*l  zk  k  xc+ 


(B- 16) 


where  the  subscripts  c-  and  c+  denote  the  conditions  immediately 
before  and  after  the  corner  point,  respectively. 

1.  CONDITIONS  AT  POINTS  E  AND  T 

These  two  points  are  considered  to  be  fixed  which  implies 
that  6y  *  fix  *  fizk  ■  0.  Hence,  the  corner  condition  is 
satisfied  identically  at  these  two  points. 

<? 

2.  CONDITIONS  AT  POINT  D 

The  variations  in  x,y ,u,v,p, and  p  can  be  treated  as 
arbitrary  and  independent  at  this  point.  Thus,  the  coefficient 


k  1  J-  — r- 


0  on  all 


of  each  of  these  variables  must  vanish.  Since  G*  * 

zk 

portions  of  the  boundary  of  the  region  (R) ,  it  is  required 
that 


(G  -  yG-)TD  ♦  ♦  -  (G  -  yGy)  Dg 


(E-l) 


(Gy}TD  +  *yD  '  ^DE 


(E-2) 


(«u)td  ’  0  (E-3) 

G  (E-4) 


(♦p)TD  “  0  (E-S) 

^*p^TD  *  0  (E-6) 


The  function  *  is  independent  of  u,v,p,  and  p,  therefore 
Eqs.(E-3)  through  (E-6)  are  satisfied  identically.  Also,  the 
function  G  is  0  along  DE  which  reduces  Eqs.(E-l)  and  (E-2)  to 


(G  -  yGy)TJ)  +  ■  0 

(E-7) 

(Vtd  +  *yD  ■  0 

(E-8) 

The  derivatives  indicated  in  these  two  equations  are 

Gy  -  -  [p(y  -  $’)  ♦  C,g^  ♦  C2pyu] 

(E-9) 

♦  *  0 

XD 

( 1:  - 1 0  J 
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Substitution  of  Eqs.(E-9)  and  (E-10)  into  Eq.(E-7)  yields 


[-  P(y  *  6  * ) (y  -  6’)  -  x(y  -  6*)  -  Cxg  ♦  yp(y  -  6*) 


♦  C,yg*  ♦  C2pyyu]  "  0 


I(y  -  « * ) Cp« •  -  t)  ♦  C2puyy  -  Cj(g  -  ygy)]TD  -  0  (E-12 


Substitution  of  Eqs.(E-9)  and  (E-ll)  into  Eq.(E-8)  yields 


[p(y  -  S')  *  Cl8-  ♦  ClPuy]TD  -  (yD  -  «-,)pb 


(E-13 


Thus,  Eqs . (E-12)  and  (E-13)  are  the  corner  conditions  which 


■ust  be  satisfied  at  point  D. 
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I£> 


< 


zJr1 


■  v#; 


B 


'P1  Jl  w* 


I*  ■ 


% 


APPENDIX  F 


CHARACTERISTIC  AND  COMPATIBILITY  EQUATIONS 

In  this  section  the  method  of  characteristics  will  be 
used  to  obtain  the  characteristic  and  compatibility  equations 
for  the  system  of  partial  differential  equations  consisting 
of  Eqs . (2)  through  (S)  and  Eqs.(lS)  through  (18).  The  method 
of  characteristics  as  used  here  is  described  in  such  refer¬ 
ences  as  (17),  (18),  and  (19). 

The  system  of  equations  to  be  considered  consists  of 
those  mentioned  above  which  are  written  here  for  convenience. 


I>i  ’  pux  +  pvy  +  “Px  ♦  vpy  ♦  ^  *  o  (F-l) 
Lj  -  puux  +  pvuy  +  px  -  0  (F-Z) 
L,  »  puvx  +  pvvy  ♦  p  -  0  (F-3) 
L*  “  upx  +  vpy  '  a*upx  '  a* vPy  *  0  (F-4) 


L.  ■  *  X2ux  *  Vx '  p  X»(px  -  alpxJ  *  yx.  +  uX2 

X  X 

♦  vX2  -  x  2  v/y  ■  o 
y 


(F-S) 


X2Uy  ■  X3Vy  '  £  *«»(Py  -  a2py)  ♦  yXt  ♦  UX  s 


♦  VX  -  X  ,  v/y  *  0 

y 


(F-6 


7  *  X*ux  *  Vy  *  rX-(Upx  *  Vpy}  +  X*  *  X,  *  u\ 


♦  vA%  -  0 

y 


(F-7 


L.  *  p  Vx  +  p  x,py  *  yuX,  *  yv*,  ♦ 


♦  a2X  *  0 

•y 


(F-8 


Equations  (F-l)  through  (F-8)  are  now  multiplied  by 
the  arbitrary  functions  through  o9  to  form  the  differential 


operator 


L  -  0,1^  ♦  olLj  ♦  0>Ls  ♦  o%L%  ♦  asLs  ♦  a,L, 


*  a,L,  *  °.L.  *  0 


(F-9 


Equation  (F-9)  can  be  rearranged  such  that 

L  ’  A(ux  +  !  V  +  C(vx  +  §  V  *  E(p*  +  E  py) 

+  G(px  +  5  PyJ  +  Kxx  *tU+  K(a  ♦  jf  A  ) 

7  x  y  *x  y 

*  M(XJ  +  JJ  X>  5  +  P(X*  +  8  )  ♦  R  -  0  (F-l 


r 


(F-ll) 
(F-12) 
C  F  - 1 3) 
(F-14) 
(F-15) 

f F- 16) 

CF-17) 

(F-18) 

(F- 19) 
(F-20) 
CP-21 J 
CP-22) 
C  F - 23) 
(F- 24) 
(F-25) 
( F -  26) 


or 

Adu  ♦  Cdv  ♦  Edp  ♦  Gdp  ♦  IdXx  ♦  KdX2  ♦  MdX3  ♦  MX,, 

♦  Rdx  •  0  (F-281 

The  conditions  under  which  this  equation  can  be  written  are 
that  the  ratios  B/A,D/C,F/E,H/G,J/I ,L/K,N/M,and  Q/  P  »ust  equal 
the  dy/dx  which  is  designated  by  X.  If  these  conditions  are 
to  hold  then  the  following  eight  equations  can  be  written. 


AX  -  B  -  0  (F-29) 
CX  -  D  ■  0  (F-30) 
EX  -  F  -  0  ( F - 31) 
GX  -  H  -  0  (F- 32) 
IX  -  J  -  0  (F-33) 
KX  •  L  -  0  ( F - 34) 
M  X  -  N  ■  0  (F- 35) 
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PA  -  Q  -  0  (F-36) 

These  equations  can  then  be  arranged  with  the  multipliers 
a 1  through  at  as  the  unknowns.  If  this  system  of  equations  is 
to  have  a  solution  other  than  the  trivial,  ax  through  o# 
equal  to  zero,  then  the  coefficient  determinant  must  vanish. 

This  determinant  is  ^s  follows:  , 


pA  p 

( Au-v) 

0 

0 

-a2a 

X2 

A,  A 

4 

0 

-P 

0 

p( Au-v) 

0 

“A  3  A 

X  3 

0 

0 

A 

-1 

(AU-v) 

p 

A*k 

P  *» 

0 

?<V-X3> 

u-v) 

0 

0 

-a2( Au-v 

)  .A4aiA 

P 

-v2 

p 

A4a2( Au-v 

P 

)  0 

0 

0 

0 

0 

Ay 

-y 

o  • 

y  ( Au-v) 

0 

0 

0 

0 

(Au-v) 

0 

.  A 

a2  A 

0 

0 

0 

0 

0 

( Au-v) 

-1 

-a2 

0 

0 

0 

0 

0 

0 

(Au-v) 

0 

(F- 37) 


Since  the  lower  left  corner  of  the  above  determinant  is 
filled  with  zeros,  the  expansion  of  the  determinant  (F-37) 
reduces  to  the  following: 


|X|  X  |Y|  -  0  (P-38) 

-r  * 

where  X  represents  the  upper  left  1x4  submatrix  and  Y 
represents  the  lower  right  4x4  submatrix.  Equation  C F - 38) 
can  be  zero  by  either  the  determinant  of  X  or  Y  being  zero. 
Setting  these  two  determinants  to  zero  results  in  the  iden¬ 
tical  expression 


( F  -  39) 


(Au  -  v)2[A2(u2  -  a2)  -  2Auv  ♦  (v2  -  a2)]  *  0 


The  characteristic  curves  are  found  by  solving  this  equation 


for  A.  The  resulting  expressions  are 


x.4*  •  £ 

dx  u 


(F-40) 


uv  ±  a2(M2  - 


u  -  a 


(F-41) 


liquation  (F-41)  can  be  rewritten  in  terms  of  the  Mach  angle 


and  flow  angle  as 


A  -  •  tan(e±a) 


(F-42) 


Thus,  the  characteristic  curves  are  the  gas  streamlines 


appearing  four  times  and  the  Mach  lines  appearing  two  times 
each.  The  system  is  then  totally  hyperbolic  since  there  are 


a  total  of  eight  real  characteristic  curves. 

The  corresponding  compatibility  equations  are  obtained 


by  substituting  Eqs.(F-40)  and  (F-42)  into  Eqs.(F-29)  through 


(F-36)  which  are  then  solved  for  the  multipliers  Oj  through 
o#.  The  expressions  for  al  through  o#  are  then  substituted 
into  Eq.(F-28)  which  is  the  general  compatibility  relation. 


The  compatibility  relations  along  the  gas  streamlines 


will  be  obtained  first.  Using  Eq.(F-40)  in  Eqs.(F-29)  through 


(F-36)  results  in  four  independent  relations  to  determine  o} 
through  o#.  Thus,  four  of  the  o’s  can  be  arbitrary  and  these 
are  chosen  to  be  o2,  o%,  os,and  a, .  Expressions  for  the 


remaining  o's  are: 


t 


-  a2o, 


(F-43) 


a%  •  Aos 


,  *  Xo2  *  O  °.c^2  •  »,) 


°.  *  r  V. 


(F-44) 

(F-45) 

(F-46) 


Equations  (F-43)  through  (F- 46)  are  now  substituted  into 
Eq.(F-28).  Since  the  multipliers  a2,  a,,  as,ttnd  o#  are 
arbitrary  the  resulting  equation  can  be  zero  only  if  the 
coefficient  of  each  of  the  arbitrary  multipliers  is  zero. 
Equating  to  zero  the  coefficient  of  each  of  the  arbitrary 
multipliers  results  in  the  following  ordinary  differential 
equations. 


pudu  +  pvdv  ♦  dp  ■  0 


dp  -  aadp  -  0 


(F-47) 

(F-48) 


-X2d“  -  Xsdv  +  ydXj  +  udX2  +  vdX ,  -  (v/y)(^dx+Xjdy)  (F-49) 


CvXj  -  uX,)dv  ♦  i  Xjdp  -  X„  -  l)dp  ♦  yudX 


-  a'udX^  -  -  x„  dx 


(F- 50) 


Proceeding  as  before,  the  compatibility  relations  along 
the  Mach  lines  can  be  obtained.  Equation  (F-41)  is  used  in 
Eqs.(F-29)  through  (F-36)  which  results  in  six  independent 
relations  to  determine  the  eight  multipliers  ol  through  a$. 
Thus,  only  two  of  the  cr's  are  arbitrary  in  this  case  and  are 
chosen  to  be  cr%  and  o#.  The  expressions  for  the  remaining  o’s 
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Equations  (F-51)  through  (F-56)  are  then  substituted 
into  Eq.(F-28)  and  the  coefficients  of  ak  and  o9  are  collected, 
These  coefficients  are  then  equated  to  zero,  which  results  in 
the  following: 

A2du  ♦  A#dv  -  i  X%(dp  ♦  a2dp)  -  ydAj  ±  tan  a(vdl2  -  udXs) 


•  ;  tan  o(A  ,  dx  -  Afdy)(v/y) 

2  2 

a2(vdu  -  udv)  ±  ~  ctn  a  dp  »  (udy  -  vdx) 


(F-57) 


(F-58) 


The  upper  signs  in  Eqs.(F-57)  and  (F-58)  apply  to  the 
left-running  Mach  lines  and  the  lower  signs  to  the  right-running 
Mach  lines. 

Thus, the  system  of  partial  differential  equations  given 
by  Eqs.  (F-l)  through  (F-8)  can  be  replaced  by  the  equivalent 
system  of  characteristic  and  compatibility  equations  developed 
in  this  section.  A  total  of  eight  characteristic  equations 
were  found,  of  which  three,  the  two  Mach  lines  and  the  gas 


f  jr  L  y 


,r..  .< 


ifT-  - 


& 


* 


* 

■  — 


streamline,  were  distinct.  A  total  of  eight  compatibility 
equations,  each  valid  along  one  of  the  characteristic  curves 
were  found. 
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APPENDIX  G 


BASE  PRESSURE  MODEL 

The  optimization  of  plug  nozzles,  as  carried  out  in 
this  report,  requires  that  the  base  pressure  be  recalcu¬ 
lated  each  time  the  plug  contour  is  modified.  It  is 
therefore  desirable  to  have  a  rapid  method  of  calculating 
the  base  pressure.  The  purpose  here  is  to  review  the 
fluid  mechanics  of  the  base  pressure  problem  in  which  the 
flow  ahead  of  the  base  is  supersonic  and  remains  so 
through  the  wake.  The  expression  used  to  calculate  the 
base  pressure  will  be  discussed  briefly  even  though  the 
program  is  not  restricted  to  any  particular  model.  The 
model  can  be  changed  in  the  program  simply  by  changing 
subprogram  BASE. 

Base  pressures  of  various  types  have  been  under  study 
both  theoretically  and  experimentally  for  several  years  so 
that  one  can  find  an  abundance  of  information  in  the 
literature.  The  early  work  was  concerned  with  predicting 
the  base  pressure  on  axisymmet  :ic  bodies  of  revolution 
traveling  at  supersonic  speeds,  the  blunt  trailing  edges 
of  wings,  rearward  facing  steps,  and  the  internal  flow 
situation  of  an  abrupt  increase  in  cross-section.  These 
are  shown  schematically  in  Figures  G-la  through  G-ld. 
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a 


a)  Axisymmetric  Body 
of  Revolution 


b)  Blunt  Trailing  Edge 
of  a  Supersonic  Airfoil 


c)  Supersonic  Flow  Over 
a  Rearward  Facing  Step 


d)  Supersonic  Flow  Through 
an  Abrupt  Increase  in 
Cross-Section 


a) 


Flow  Over  a  Missile 
With  Engines  Operating 


Forced  Deflection  Nozzle 


FIGURE  G-l,  TYPICAL  FLOW  CONFIGURATIONS 


FOR  BASE  PRESSURE  PROBLEMS 
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In  more  recent  years  other  base  pressure  problems  such 
as  those  depicted  in  Figure  G-le  and  G-lf  have  received 
attent ion . 

The  next  few  paragraphs  will  be  devoted  to  a  dis¬ 
cussion  of  two-dimensional  flow.  The  conceptual  model 
used  here  can  be  applied  to  the  axisymmetric  case. 


1.  FLOW  DESCRIPTION 

a.  Two-Dimensional  Flow.  As  in  any  problem  of  this 


nature  it  is  necessary  to  have  a  model  which  accurately 
represents'  the  actual  flow.  Figure  G-2  depicts  the 


Chapman- Korst*model  which  is  frequently  used  to  describe 
the  flow  in  the  base  region.  The  general  features  of 
the  flow  were  first  described  by  Chapman(20)  and  extended 
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TRAILING 


SHOCK  y/ 

^  i*^*RECOMPRESSION 


FIGURE  G-2.  CHAPMAN -KORST  MODEL  OF  SEPARATED  FLOW 

by  Korst(21)  in  order  to  formulate  an  energetic  criterion 
for  penetration  into  the  high  pressure  region  of  the 


wake  throat. 

The  flow,  with  boundary  layer  thickness  6,  expands 
around  the  corner  A  and  separates  from  the  surface  at  that 
point.  The  interaction  of  the  external  Invlscld  flow  and 
the  internal  dissipative  region  produces  a  circular  motion 
of  the  fluid  in  the  base  region  and  an  inherent  decrease 
of  base  pressure.  The  flow  is  deflected  towards  the  sur¬ 
face  of  the  afterbody  due  to  the  lower  pressure  in  this 
region  and  then  must  be  recompressed  as  the  afterbody  sur¬ 
face  is  reached.  The  re compression  produces  waves,  as 
shown  in  Figure  G-2,  which  coalesce  to  fbrm  the  trailing 
edge  shock  just  downstream  of  the  wake  throat.  The  fluid 
entrained  by  the  internal  flow  near  the  base  is  returned 
to  the  separated  flow  region  near  the  wake  throat.  This 
flow  characteristic  satisfies  the  conservation  of  mass 
requirement  in  the  base  region  and  helps  to  define  the 
dividing  streamline  which  is  considered  to  originate  at 
the  corner  and  stagnate  at  a  point  near  the  wake  throat. 
The  pressure  across  the  base  is  considered  to  be  constant. 
Experimental  studies  indicate  that  the  pressure  downstream 
of  the  base  region  is  nearly  constant  and  equal  to  that 
on  the  base  for  distances  up  to  one  half  the  length  of  the 
separated  flow  region  (21). 

Each  of  the  characteristics  of  this  model  warrant 
individual  attention  and  discussion  in  light  of  the  experi¬ 
mental  evidence.  However,  since  it  is  not  intended  to 
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solve  the  base  pressure  problem  here  it  suffices  to  say 
that  certain  aspects  of  this  model  have  recently  been 
subject  to  criticism  (22,23). 

The  flow  in  plug  nozzles  is  axisymmetric,  and  there 
are  some  significant  differences  between  two-dimensional 
and  axisymmetric  flows  which  should  be  noted. 

b.  Axisymmetric  Flow.  As  mentioned  earlier  the 
conceptual  model  used  for  two-dimensional  flow  can  be 
applied  to  the  axisymmetric  case;  i.e.,  a  meridian  section 
of  an  axisymmetric  body  would  appear  exactly  as  depicted 
in  Figure  G-2  for  the  two-dimensional  case.  Since  plug 
nozzles  do  not  have  an  afterbody  or  sting  as  shown  in 
Figure  G-2,  the  discussion  here  will  be  directed  to  the  no 
sting  situation.  Thus,  recompression  begins  to  occur  as 
the  fluid  from  opposite  sides  of  the  body  converge  instead 
of  approaching  an  afterbody  surface. 

The  expansion  about  the  corner  at  the  base  of  an 
axisymmetric  body  is  not  expected  to  be  the  same  as  for 
the  two-dimensional  case.  This  expansion  in  two-dimen¬ 
sional  Pow  is  frequently  taken  to  be  the  Prandtl-Meyer 
expansion-even  though  there  are  indications  that  this  is 
incorrect  (22) . 

The  wake  flow  also  has  some  differences  as  one  might 
expect.  The  converging  wake  in  axisymmetric  flow  is 
essentially  conical  and  must  experience  a  pressure  in¬ 
crease  along  the  cone's  surface.  This  is  not  the  case  for 
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two-dimensional  flow  whore  flow  along  the  converging 
portion  of  the  wake  produces  no  change  in  pressure.  As 
mentioned  by  Mueller  (24)  the  pressure  increase  measured 

along  the  axis  of  the  separated  flow  region  is  greater 
behind  axisymmetric  bodies. 

In  addition  to  being  axisymmetric,  plug  nozzle  flow 
is  also  oxpected  to  be  turbulent  and  any  adequate  theory 
must  give  this  consideration. 

C.  lurbulenfr  Flow.  It  has  been  sho-m  that  the 
boundary  layer  profile  at  separation  Ut  a  considerable 
influence  upon  the  wake  evolution  (2b).  Thus,  a  turbulent 
profile  at  separation  could  be  expected  to  influence  the 
base  pressure.  Crocco  and  Lees  (26)  state  that  one  of  the 
major  differences  between  laminar  and  turbulent  flows  is 
the  mixing  rate.  Turbulent  mixing  rates  are  from  five  to 
ten  times  larger  than  laminar  mixing  rates.  The  survey 

article  by  Lykoudis  (27)  contains  further  discussion  and 
references  on  this  topic. 

2.  BASE  PRESSURE  DETERMINATION 

A  review  of  the  literature  reveals  that  methods  are 
available  for  predicting  the  base  pressure  in  a  turbulent 
axisymmetric  flow.  The  survey  article  by  Sedney  (28) 
contains  a  large  collection  of  the  references  on  the  base 
pressure  problem.  The  more  recent  paper  by  Mueller  (24) 
enumerates  seven  methods  of  calculating  the  base  pressure 
in  this  type  of  flow  and  adds  his  own  method  to  bring  the 
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total  to  eight.  None  of  these  methods  have  direct  appli¬ 
cation  to  plug  nozzles  since  they  assume  a  uniform  axial 
flow  upstream  of  the  plug  base.  Mueller  applies  his 
method  to  an  ideal  forced-deflection  nozzle  by  selecting 
the  proper  reference  conditions  but  it  is  unlikely  that 
this  could  be  done  in  the  case  of  a  plug  nozzle. 

It  is  also  known  that  methods  which  are  probably  more 
directly  applicable  have  been  developed  by  the  industry 
but  have  not  as  yet  appeared  in  the  unclassified  litera¬ 
ture.  Work  of  this  nature  has  been  and  is  being  conducted 
at  Rocketdyne  (29).  Personal  conversations  with  Mr.  Grant 
A.  Hosack  of  that  company  reveal  that  all  of  the  details 
of  their  methods  may  not  be  available  even  in  a  classified 
form  since  part  of  the  work  was  done  on  independent  re¬ 
search  and  development  funds.  Pratt  and  Whitney  along 
with  General  Electric  (30)  has  also  been  active  in  this 
field.  A  program  is  in  existence  at  Pratt  and  Whitney  for 
base  pressure  calculations  in  plug  nozzles  (31) . 

Even  though  methods  are  available  for  base  pressure 
determination,  it  is  desirable,  in  the  thrust  optimization 
of  plug  nozzles,  to  have  an  analytical  expression  for  base 
pressure  in  terms  of  the  upstream  flow  properties.  An 
expression  of  this  type  lends  itself  to  the  rapid  inter¬ 
action  techniques  necessary  to  this  optimization  method. 
Rom  (32)  has  reported  empirical  expressions  for  the  base 
pressure  in  two-dimensional  laminar  and  turbulent  flows 
for  backward  facing  steps  and  base  flows.  He  points  out 
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that  axisymmetric  base  flows  cannot  be  treated  by  a 
simple  modification  of  the  two-dimensional  analysis  because 
of  the  difference  in  the  interaction  between  the  external 
inviscid  flow  and  the  viscous  mixing  region.  Rom’s  attempt 
to  obtain  an  analytical  expression  for  base  pressure  is 
apparently  the  first  to  meet  with  any  degree  of  success  and 
appear  in  the  literature. 

3.  EQUATION  FOR  BASE  PRESSURE 

It  is  not  intended  to  investigate  the  validity  of  the 
various  methods  used  to  compute  pb,  but  rather  to  be  able 
to  calculate  a  representative  value  of  base  pressure  in 
order  that  its  effect  upon  the  optimization  can  be  demon¬ 
strated.  It  was  found  that  a  curve  fit  of  experimental 
data  would  serve  this  purpose.  Reference  (32)  contains  a 
plot  which  shows  the  effect  of  the  local  Mach  number  at 
separation  on  the  base  pressure.  This  experimental  data 
can  be  represented  by  the  empirical  equation 

pb  -  0.846  p/M1,3  (G-l) 

where  p  and  M  are  the  local  values  of  pressure  and  Mach 
number  at  separation.  Equation  (G-l)  has  been  incorporated 
into  the  computer  program  for  base  pressure  calculations. 

In  order  to  determine  the  importance  of  accurate  base  pres¬ 
sure  calculations  in  plug  nozzle  optimization,  an  alternate 
empirical  equation  for  base  pressure  was  obtained  from 
Reference  (33).  This  equation  is 
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0.92M’  -  0.03)/M**  7]  (G-2) 


where  pro  and  are  free  stream  values  of  pressure  and  Mach 
number.  Since  Eq.(G-2)  is  based  upon  free  stream  condi¬ 
tions  rather  local  conditions  at  separation,  it  is  not  ex¬ 
pected  that  base  pressures  calculated  from  this  equation 
will  accurately  represent  those  occurring  in  plug  nozzles. 
However,  as  shown  in  Section  V,  it  illustrates  the  impor¬ 
tance  of  calculating  the  base  pressure  accurately.  Equa- 

i 

tions  (G-l)  and  (G-2)  are  plotted  as  a  function  of  Mach 
number  in  Figure  G-3. 


An  initial -value  line,  along  which  the  velocity  com¬ 
ponents  and  thermodynamic  properties  are  known,  is  required 
in  order  to  start  the  method  of  characteristics  solution 
for  the  flow  field.  The  start  line  can  either  be  read  into 
the  computer  program  from  data  cards  or  generated  inter¬ 
nally  if  the  nozzle  being  analyzed  is  for  a  subsonic  burn- 
ing  engine.  The  internally  generated  start  line  is 
obtained  from  a  modified  Moore-Hall  (16)  transonic  flow 
analysis.  The  results  of  their  analysis  will  be  outlined 
here  and  the  necessary  modifications  pointed  out. 

1.  MOORE-HALL  ANALYSIS 

The  coordinate  system  is  shown  in  Figure  H-l.  The 
flow  is  assumed  to  be  axisymmetric ,  inviscid,  and  irrota- 
tional .  The  applicable  equations  in  terms  of  the  (X,Y) 
coordinate  system  are  given  as 


where  a*  is  the  critical  speed  of  sound.  Since  the 
boundary  conditions  are  complicated  in  the  (X,Y)  coordinate 
system  the  problem  is  transformed  to  the  (x,y)  system  and 
the  solution  is  then  given  in  terms  of  the  (x,y)  system. 


FIGURE  H-l.  COORDINATE  SYSTEM  FOR  TRANSONIC  FLOW  ANALYSIS 

The  velocity  components  are  given  as  u  and  v  but  are 
written  in  a  non-dimensional  form  as 


a»r  *  v'  (H-4) 

Without  loss  of  generality  the  origin  is  taken  to  be  at  the 
minimum  cross-sectional  area  (throat)  and  the  throat  half¬ 
height  to  be  unitv.  The  axis  is  oriented  so  that  the  wall 
slopes  at  x  ■  0  are  equal  in  magnitude  but  opposite  in 
sign.  The  equations  which  describe  the  upper  and  lower 
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nozzle  walls  arc  written  in  terms  of  a  MacLaurin's  series. 


These  equations  are 

h(x)  -  1  -  m'  x  ♦  m"  x2  ♦  --- 

j(x)  *  1  ♦  m'  x  ♦  1  -n  m"  x2  ♦  — 


where 


55“  •  •  *• 


Jitel.. 


(1  ♦  n)m" 
(1  -  n)m" 


d2h(o)/dx2 

d2j(o)/dx2 


(H-  5) 


with  n  representing  the  asymmetry  of  the  nozzle  profile 
and  m"  a  mean  radius  of  curvature.  As  a  boundary  condition, 
the  flow  is  required  to  be  parallel  to  the  walls.  This 
condition  at  the  outer  and  inner  walls  can  be  written  as 

v'  (x,h)  *  [1  ♦  u*  (x,h) ]dh/dx 

-v '  (x ,h)  -  [1  ♦  u’(x,  •  j) ]dj/dx 

The  quantities  x  and  m*  are  replaced  by  ez  and  cm  where 
c  »  R’1^2,  id  is  a  quantity  of  order  unity,  and  R  is  a  non- 
dimensional  radius  of  curvature  of  a  meridian  section  at 
the  throat.  The  velocity  components  are  then  sought  as 
series  expansions  in  powers  of  e.  Thus, 

u'  *  ui  e2  ♦  U2 £  *  ♦  — 

v '  ■  mye  ♦  m2c2(y2  -  l)ctn  0  ♦  Vi c 3  ♦  vje4  ♦  — 
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These  equations  are  substitute^  into  the  flow  equations 
and  the  boundary  conditions  are  required  to  hold.  This 
results  in  an  infinite  sequence  of  pairs  of  differential 
equations,  the  first  of  which  is  solved.  The  solution 
can  be  written  in  the  form 


vi  -  A  ;(y)  ♦  zAJ  (y) 

ui  *  Aj  (y)  ♦  Be  ♦  Bj'z  (II- 

where 

B?  -  (1  -  *)U/2  -  m2) 

B«  -  (1  -  *)m/4Bi  -  (1  -  i|0ms/6Bi  -  1/6 
Ai (y)  *  (1  -  mBi  -  m2)y2/2  ♦  n / 

Ao  (y)  -  Ko  +  Kj y  ♦  Kay2/2  ♦  K,y3/3 
Ke  -  ran/2  -  Bx n/ (1  -  4>) 

Kj  *  2BoBi/(l  -  i|/)  -  mBo  ♦  m3ctn3B 
K2  *  2Bjn/(l  •  ♦)  "  3raq 

c 

Ks  *  Bi/Cl  -  1 p)  +  3m2Bj/2  -  3m  ♦  5m3/2  -  3m3ctn2B 
Ai  (y)  *  3Ai  (y)/3y 


and 


Hi 


M*2  ■  1  ♦  2u'  ♦  (u')2  ♦  (v') 


Since 


u  j  e 1  ♦  — 


(H-7) 


-  mye  ♦  m2c2(y2  -  l)ctn  8  ♦  Vie5  ♦ 


(H-8) 


this  equation  becomes 

M*?  =  1  ♦  (ui  ♦  M2y2/2)c2  ♦  0(e s) 


(H-9) 


When  the  Mach  number  is  one,  M*  *  1,  and  the  remaining 
terms  must  vanish.  Thus 


Q  *  uj  ♦  m2y2/2  ■  0 


(H-10) 


and  the  equation  for  uj  provides  sufficient  information  to 
locate  the  sonic  line. 


2  *  (Q  -  Ai  -  Bo  -  m2y2/2)/Bi  ♦  0(e) 


(H- 11) 


When  Q  «  0  the  above  equation  locates  the  sonic  line  and 
when  Q  is  greater  than  zero  it  locates  lines  of  constant 
Mach  number. 

The  flow  direction  relative  to  the  x^txis  is  8,  where 


0  =  tan 


2.  MODIFICATIONS  TO  THE  MOORE-HALL  ANALYSIS 

It  was  found  upon  programming  that  the  equation  given 
for  the  sonic  line  did  not  yield  a  local  Mach  number  of 
unity  at  all  points.  This  was  due  to  the  terms  of  order 
c3  and  higher  which  were  dropped  from  Eq.  (H-9).  Once 
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the  definitions  of  u'  and  v*  have  been  established  all 
of  the  terms  must  be  retained.  Thus,  Eq.  (H-9)  should 
„be  written  as 

M*2  *  1  ♦  2(ui  ♦  m2y2/2)c2  -  2[msy(y2  *  l)ctn  S]eJ 

♦  2 [ u | / 2  -  vx my  ♦  m^Cy2  -  1) 2ctn2B/2] c" 

♦  2[vlm2 (y2  -  l)ctn  6]e5  ♦  vfe*  (H-12) 

and  Eq.  (H-10)  as 

Q  -  Uj  ♦  m2y2/2  -  [msy(y2  -  l)ctn  0]e 

♦  [uf/2  -  Vimy  ♦  mH(y2  -  1) 2ctn2B/2] e2 
+  [vj m2 (y2  -  l)ctn  0] e  1  ♦  v?e*72  (II- 13 j 

^  c. 

Again  when  Q  *  0,  M*  *  1.  Thus  r  when  Eqs.  fll-6)  arc  sub¬ 
stituted  into  (H-13)  the  equation  of  the  sonic  line  re¬ 
sults.  It  was  found  that  this  procedure  resulted  in  the 
local  Mach  number,  M,  being  unity  at  every  point  along 
the  sonic  line.  Values  of  Q  greater  than  zero  yield  the 
equations  of  lines  of  constant  Mach  number. 

A  second  problem  was  encountered  when  an  attempt  was 
made  to  initiate  a  method  of  characteristics  solution  from 
a  line  of  constant  Mach  number  which  passevl  through  the 
wall  points  h ( 1 )  and  j(-l).  This  particular  line  was 
chosen  since  the  flow  matches  the  wall  at  only  these  two 
points.  It  was  found  that  this  line  was  not  a  space- 1  ike 
curve,  or  some  of  the  points  on  this  line  lie  within  the 
zone  of  influence  of  neighboring  points.  That  is,  some 
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points  lie  within  the  Mach  cone  of  neighboring  points. 

This  is  shown  schematically  in  Figure  II- 2  where  point  2 
lies  in  the  zone  of  influence  of  point  1.  Two  things 
were  done  to  minimize  this  problem.  It  was  found  that  the 
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MACH  LINK 


FIGURE  11-2.  ZONE  OF  INFLUENCE  IN  SUPERSONIC  FLOW 

flow  properties  could*  be  evaluated  along  two  straight 
lines  passing  through  h(l)  and  j(-l)  and  intersecting  at  a 
chosen  place  on  the  x-axis.  Thus,  it  was  possible  to  vary 
the  slopes  of  these  two  lines  and  in  so  doing  minimize  the 
number  of  points  lying  in  the  zone  of  influence  of  another 
point.  Also,  right  characteristics  were  not  started  from 
those  points  which  had  other  points  in  their  zone  of 
influence.  This  produced  very  little  error  since  the 
right  characteristics  normally  pass  very  close  to  the 
neighboring  points  in  this  region. 
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APPENDIX  I 
WALL  SHEAR  MODEL 


The  optimization  problem  formulated  in  Section  III 
requires  the  calculation  of  the  boundary  layer  thickness 
and  the  wall  shear.  However,  the  computer  program  which 
solves  the  resulting  design  equations  only  accounts  for  the 
^all  shear.  The  correction  for  boundary  layer  thickness 
can  be  made  to  the  optimized  contour  by  using  the  boundary 
layer  thickness  to  adjust  the  wall  coordinates.  The  purpose 
here  is  to  disc--  ’  riefly  the  wall  shear  model  which  has 

been  incorporated  into  the  computer  program  to  evaluate 
the  wall  shear. 

The  shearing  stress  at  the  wall  is  given  by  Newton's 
law  of  friction  as 

t  -  MOu/3y)y.0  u-ij 

which  requires  the  evaluation  of  the  velocity  gradient  normal 
to  the  wall.  This  can  be  a  very  difficult  task  in  the  case 
of  plug  nozzles  since  1)  the  boundary  layer  is  expected  to 
be  turbulent,  2)  compressibility  effects  are  impoitant, 

3)  heat  transfer  to  the  wall  must  be  considered,  and  4)  the 
favorable  free  stream  pressure  gradient  must  be  taken  into 
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account.  Numerous  methods  can  be  found  in  the  literature 
for  evaluating  the  wall  shear  stress.  Since  it  was  not 
intended  to  investigate  the  validity  of  the  many  boundary 
layer  methods  used  to  compute  the  shear  stress,  an  alternate 
approach  was  taken  for  calculation  purposes.  The  shear 
stress  was  written  as 

i  =  cfpV2/2  (1-2) 

where  c^,  p,  and  V  are  the  local  values  of  the  skin  fric¬ 
tion  coefficient,  density,  and  velocity.  It  then  remains 
to  find  an  expression  for  C£  which  can  be  used  in  the  opti¬ 
mization  analysis  and  which  gives  reasonably  accurate  values 
for  the  local  skin  friction  coefficient  expected  in  plug 
nozzles.  An  expression  obtained  by  Liepman  and  Goddard  (35) 
for  compressible,  turbulent  flow  over  a  flat  plate  was 
selected  for  this  purpose.  This  expression  is 

cf.  =  cf  /[I  +  r (y  -  1 ) M 2 / 2 ]  (1-3) 

where  c^  is  the  incompressible  skin  friction  coefficient 
i 

and  r  is  the  recovery  factor.  A  representative  value  of 
the  recovery  factor  was  chosen  as  0.72  and  c r  is  an  input 

l 

parameter  to  the  computer  program.  It  should  be  emphasized 
that  the  optimization  process  is  not  restricted  to  this  or 
any  other  wall  shear  model.  Any  desired  model  can  be  in¬ 
corporated  into  subprogram  SKIN  which  is  described  in 
Appendix  .J. 
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*  COMPUTER  PROGRAM  DESCRIPTION 

The  program  was  written  in  the  Fortran  IV  language 

0 

and  has  been  run  on  the  CDC  6500  and  IBM  7094  computers 
at  Purdue  University  and  the  Burroughs  5500  computer  at 
the  United  States  Air  Force  Academy.  The  program  fits 
entirely  in  the  core  of  these  machines  without  an  overlay 
scheme.  It  is  composed  of  a  main  program  and  fifteen 
subprograms  whose  functions  are  described  here.  The  input 
and  output  parameters  are  discussed  in  Appendix  K  with  a 
complete  program  listing  in  Appendix  L. 

1 .  MAIN  PROGRAM 

The  primary  purpose  of  the  main  program  is  to  control 
the  program  logic  even  though  it  contains  some  calcula¬ 
tions.  The  key  functions  of  the  main  program  are  shown  in 
Figure  J-l  with  the  subprograms  involved  being  indicated 
at  the  bottom  of  each  block.  These  subprograms  may  in 
turn  call  upon  other  subprograms  which  arc  not  indicated. 
The  main  program  also  reads  in  all  the  input  data  which 
arc  discussed  in  a  later  section. 
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2 .  SUBPROGRAMS 


« 


a.  Subprogram  START.  Subprogram  START  performs 
several  functions.  It  first  calculates  the  start  line  by 
either  a  modified  Moore-Hall  analysis  or  a  simple  isen- 
tropic  analysis  along  a  straight  line  of  constant  Mach 
number.  At  the  same  time  it  calculates  the  thrust  and  mass 
flow  rate  along  the  initial-value  line.  If  the  start  line 
data  are  read  in,  the  thrust  and  mass  flow  rate  along  this 
line  will  also  be  calculated.  If  the  mass  flow  rate  is  not 
the  specified  value,  FLRTC t  and  the  Vthrt  line  is  generated 
internally,  an  option  can  be  iected  which  modifies  the 
throat  half-height  to  obtain  the  correct  mass  flow  rate. 
Then  the  start  line  solution  is  written  out.  Once  the 
start  line  is  complete  the  Prandtl-Meyer  expansion  at 
point  E’  (Figure  3)  is  calculated  and  written  out.  The 
expansion  is  allowed  to  continue  until  either  the  ambient 
pressure  is  reached  or  the  last  right  characteristic  gen¬ 
erated  from  E'  has  a  direction  parallel  to  the  center  line 
at  that  point.  Finally,  the  first  guess  for  the  optimum 
contour,  which  may  be  read  in  or  generated  internally,  is 
written  out. 

b.  Subprogram  FL0W1.  This  subprogram  performs  one 
basic  function.  It  calculates  the  flow  field  in  the  region 
between  the  start  line  and  exit  characteristic  DE  down  to 
the  left  characteristic  which  originates  at  point  A 
(Figure  3).  It  makes  use  of  Subprogram  QUAD  to  determine 
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whether  or  not  points  on  the  start  line  lie  within  the 
zone  of  influence  of  each  other.  Right  characteristics 
arc  not  initiated  from  those  points  which  have  other  points 
in  their  zone  of  influence.  The  output  from  this  subpro¬ 
gram  is  written  out  along  the  right  characteristics  as  the 
calculations  proceed  from  left  to  right  starting  at  point 
A. 

c-  Subprogram  Si-LHCT.  Subprogram  SELECT  divides  the 
left-characteristic  which  originates  at  point  T  (Figure  3) 
into  (NPTS-1)  points  and  curve  fits  the  flow  data  along 
this  line.  This  process  may  involve  all  or  a  portion  of 
the  data  points  along  the  characteristic.  Any  portion  of 
the  (NPTS-1)  points  designated  by  (NS-1)  can  have  a  reduced 
spacing  determined  by  dividing  the  spacing  the  points  would 
have  if  all  (NPTS-1)  points  were  spaced  equally  by  the 
factor  CS .  The  remaining  (NPTS-NS)  points  have  equal 
spacing . 

Subprogram  EXTEND.  This  subprogram  extends  the 
flow  field  calculations  from  the  left  characteristic 
originating  at  point  A  down  to  the  left  characteristic 
originating  at  point  T.  It  also  calculates  the  thrust 
contribution  due  to  that  portion  of  the  plug  surface  be¬ 
tween  points  A  and  T .  The  output  from  this  subprogram  is 
written  out  along  the  left  characteristics  as  the  cal¬ 
culations  proceed  downward  from  point  A  to  point  T. 
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e.  Subprogram  FLOW.  This  subprogram  calculates  the 
flow  field  in  the  region  (R) .  Calculations  begin  on  and 
are  carried  out  down  the  right  characteristic  designated 
by  the  subprogram  variable  NZ.  NZ  -  1  corresponds  to  point 
T  and  NZ  «  NPTS  corresponds  to  the  exit  characteristic  1)1; . 
The  output  from  this  subprogram  is  written  out  along  the 
right  characteristics  as  the  calculations  proceed  from 
left  to  right  starting  at  the  point  designated  by  NZ. 

Subprogram  LANGR1.  This  subprogram  calculates 
the  Lagrange  multipliers  in  the  region  (R) ,  calculates  the 
thrust  developed  by  the  plug  surface  between  points  T  and 
I)  and  the  total  thrust,  and  evaluates  the  error  function 
along  the  right  characteristic  DE.  The  Lagrange  multi¬ 
pliers  calculated  by  this  subprogram  arc  written  out  along 
the  right  characteristics  as  the  calculations  proceed  from 
left  to  right  starting  from  the  same  point  as  in  PLOW. 

£•  Subprogram  CHARI.  This  subprogram  is  an  iteration 
procedure  which  solves  the  flow  field  characteristic  and 
compatibility  equations  which,  in  finite  difference  form, 
are 

y  *  ’  Yi  *  (xj  ‘  x»)  tan  3  -  0l  3)  (.J-l) 

Y>  •  Yz  "  (x3  ’  x2)  tan  (e2  ,  ♦  a2  ,)  (.J-2) 

(03  '  0i)  ♦  Qi  3(v!  -  vi)  -  GI3(y  3  -  y,)/y13  =  0  r.J-3) 

(0  3  -  02  )  -  Q23(v3  '  v2)  *  F2s(y3  ’  Y2)/y2i  =  0  ( J - 4 J 

The  double  subscript  indicates  the  average  value  of  the 
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parameter  between  the  two  points  and 


Qi  1  =  3 / V i  3 

Q2  3  =  ^tn  02  3 /V ?  3 

f.i  3  =  sin  0i  3  sin  cti  3/sin  ( 0 1  3  *  oti  3) 

3  =  sin  0  23  sin  a2  3/sin  (02  3  +  a2  3) 

The  points  1  and  2  are  assumed  to  be  known  and  the  pro¬ 
cedure  solves  for  the  location  and  flow  properties  at 

point  3.  This  is  shown  schematically  in  Figure  J-2. 

h.  Subprogram  SURF.  This  subprogram  finds  the  point 
where  a  right  characteristic  intersects  the  plug  surface 
TD.  Since  the  wall  location  and  slope  are  known  it  is  only 
necessary  to  satisfy  Hqs.  (J-l)  and  (J-3).  The  location 
and  flow  properties  at  point  1,  shown  in  Figure  J-3,  arc 
assumed  to  be  known  and  the  location  and  velocity  at  point 
3  arc  found. 

i .  Subprogram  LOCAT.  This  subprogram  performs  a 
similar  function  to  that  of  subprogram  SURF.  Here  it  is 
desired  to  start  from  a  point  on  the  plug  surface  where 
the  location  and  flow  angle  are  known  and  extend  a  right 
characteristic  to  a  known  left  characteristic.  Thus,  it 
is  desired  to  find  the  velocity  at  point  1  shown  in 
Figure  J-4  and  the  location  and  flow  properties  at  point  3. 
In  general,  interpolation  along  the  known  left  character¬ 
istic  is  required. 
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j .  Subprogram  SKIN.  This  subprogram  calculates  the 
wall  shear  stress  at  a  given  point  on  the  plug  surface 
using  the  equation 

t  =  Cf  pV2  (J-5) 

where 

cr  *  Cf  /| 1  +  ,72(y-1)M2/2] -578 
i 

The  incompressible  coefficient  of  friction,  Cp  ,  is  con- 

r  i 

stant  and  is  an  input  parameter  to  the  program.  The  input 
arguments  to  SKIN  are  the  local  Mach  number  and  velocity 
and  the  incompressible  coefficient  of  friction.  The  output 
argument  is  the  value  of  x.  This  subprogram  could  be  easily 
modified  to  incorporate  any  desired  wall  shear  model. 

k.  Subprogram  BASH.  Subprogram  BASE  calculates  the 
base  pressure  using  the  empirical  equation 

=  Ap/M1*  (J-6) 

where  the  constants  A  and  B  arc  program  input  parameters. 
The  input  arguments  to  BASE  are  the  x  and  y  coordinates 
and  the  local  Mach  number  and  velocity.  The  output  argu¬ 
ments  are  pfc  and  y  p^.  This  subprogram  could  also  be  modi¬ 
fied  to  incorporate  any  desired  base  pressure  model. 

l.  Subprogram  REST.  This  subprogram  evaluates  the 

general  isoper imetric  constraint  g  and  its  derivatives 
gp,  gy,  gy,  and  d(g^)/dx.  Since  this  constraint  was  taken 


to  be  one  which  requires  the  nozzle  to  have  a  fixed  length, 
g  *  1 ,  ana  all  the  derivatives  are  zero.  Currently  there 
are  no  required  input  arguments  to  BASE  and  the  output 
arguments  are  g,  gp,  g^,  g^,  and  dg^/dx.  This  subprogram 
could  be  changed  to  include  other  constraints  such  as  con¬ 
stant  wetted  area  by  setting 


g  ■  y  (1  ♦  y2) 

gp  -  0 

gy  *  1  ♦  y2 

gy  *  2yy 

XZ  gy  *  2(yy  ♦  y*) 


(J-7) 

fJ-8) 

CJ-9J 

(d-10) 

(J-ll) 


m*  Subprogram  QUAD.  This  subprogram  simply  deter¬ 
mines  the  angular  location  of  one  point  with  respect  to 
another.  It  is  used  in  subprogram  FL0W1  to  help  determine 
if  a  point  on  the  start  line  lies  within  the  zone  of  in¬ 
fluence  of  another. 

n-  Subprogram  LSQUARE .  This  subprogram  determines 
the  constants  A  and  B  for  a  least  squares  fit  of  data  to  a 
straight  line  whose  equation  is 
y  -  Ax  ♦  B 

°«  Subprogram  AITKEN .  This  is  an  interplating  sub¬ 
program  which  uses  Aitken's  method  of  interpolation.  The 
maximum  degree  of  the  interpolating  polynomial  is  10. 
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APPENDIX  K 


COMPUTER  PROGRAM  OPERATION 


The  program  input-output  parameters  are  discussed  in 
this  Appendix  and  are  illustrated  by  means  of  two  sample 
cases.  The  program  failure  modes  and  flags  are  also  dis¬ 
cussed  . 

1.  PROGRAM  INPUT 

The  program  input  parameters  are  read  in  from  data 
cards  by  the  main  program.  All  of  the  input  parameters 
arc  identified  here  in  the  order  in  which  they  appear  in 
the  data  deck  and  arc  discussed  as  necessary. 

Card  1  FORMAT  (12A6) 

This  card  contains  72  characters  of  identifying  in¬ 
formation  which  is  written  out  on  the  first  page  of  the 
computer  output. 

> 

Card  2  FORMAT  (9F8.0) 

This  card  contains  the  engine  operating  conditions 
and  information  for  the  first  guess  of  the  plug  surface. 
PA  Atmospheric  pressure  (lbf/in2). 

PO  Chamber  pressure  (lbf/in2). 

TO  Chamber  temperature  (°R) . 
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R  Gas  constant  (ft  -  lbf/lbm  -  °R) . 

G  Ratio  of  specific  heats  (non-dimensional). 

FLRTC  Desired  mass  flow  rate  (lbm/sec) . 

XLENG  Desired  length  of  the  plug  surface  (in). 

YLAST  The  estimate  for  y^  (in)  when  the  first  guess 
of  the  plug  surface  is  generated  internally. 

TLAST  The  estimate  for  the  wall  slope  (degrees)  at 

point  D  when  the  first  guess  of  the  plug  surface 
is  generated  internally. 

Card  3  FORMAT  (7F10.0) 

These  data  are  concerned  with  the  specification  of 

the  throat  geometry  and  start  line.  Appendix  G  contains  a 

detailed  discussion  of  these  parameters. 

HO  Throat  half-height  (in). 

RE  Cowl  lip  radius  (in). 

BD  Mean  flow  angle  at  the  throat  (degrees). 

RRE  The  mean  radius  of  curvature  of  the  nozzle  walls 

at  the  throat  (in). 

EPS  Velocity  component  expansion  parameter  »  R’1^2 

(nondimensional) . 

CENTM  Desired  Mach  number  along  the  start  line  at  the 
throat  center-line  or  the  Mach  number  along  the 
linear,  internally  generated  start  line. 

RHOD  The  downstream  radius  of  curvature  of  the  plug 

surface  (in). 
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Card  4  FORMAT  (1415) 

This  card  contains  integer  parameters  for  controlling 
the  numerical  algorithm. 


NPTSL 


NPTS 


NDEGR1 


NDEGR2 


NDERMX 


NPTSS 


NS 


Desired  number  of  points  on  the  start  line  or 
the  number  of  points  on  the  start  line  to  be 
read  in  (maximum  «  100).  Typically  31. 

Number  of  points  on  the  portion  of  the  plug 
surface  to  be  optimized  (maximum  *  50). 
Typically  50. 

Degree  of  the  interpolating  polynomial  used  for 
interpolation  of  the  data  along  the  left 
characteristic  originating  at  point  T  in  sub¬ 
programs  SELECT  and  EXTEND  (maximum  ■  10) . 
Typically  1. 

Degree  of  the  interpolating  polynomial  used  in 
subprogram  SURF  (maximum  *  10).  Typically  1. 
Number  of  iterations  before  recalculating  the 
partial  derivatives,  3E/30.  Typically  5. 

One  plus  the  number  of  wall  points  to  be  read  in 
as  the  first  guess  for  the  optimum  surface 
(maximum  «  200).  Should  be  at  least  15. 

Number  of  points  which  are  to  have  reduced  spac¬ 
ing  along  the  left  characteristic  originating  at 
point  T.  NS  ■  1  if  all  points  are  to  have  equal 
spacing.  Generally  less  than  10. 


NWRITE  Controls  the  output.  NWRITE  -  1:  all  cal¬ 
culations  are  written  out;  NWRITE  -  0:  limited 
output  as  described  in  the  next  section. 

NCNT  The  desired  number  of  points  of  the  internally 

generated  first  guess  for  the  optimum  surface 
which  are  to  be  on  the  arc  of  a  circle  of  radius 
RHOD.  Typically  5. 

NREAD1  0:  Read  in  2  through  NPTSS  data  points  as  the 
first  guess  for  the  optimum  surface.  The  first 
point  corresponds  to  the  lowest  point  on  the 
start  line  and  need  not  be  read  in. 

1:  Generate  the  first  guess  for  the  optimum 
surface  internally. 

NREAD2  0:  If  other  than  a  Moore-Hall  start  line  is 
desired.  1:  If  a  Moore-Hall  start  line  is 
desired. 

OPT1  0:  To  analyze  a  given  plug  contour.  1:  To 

obtain  the  optimum  contour. 

OPT2  0:  Read  in  NPTSL  data  point  for  the  start  line. 

1:  Generate  a  linear  start  line  internally. 

opT3  C:  HO  is  fixed  at  the  value  read  in.  1:  Change 

HO  to  obtain  the  desired  mass  flow  rate. 

Card  5  FORMAT  (9F8.0) 

This  card  contains  more  information  for  the  control 

of  the  numerical  algorithm. 
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DU. TPM 

CPI 

I.KK 

WEIGHT 

UKLTAT 

CS 

AA 

AB 

TIIHTAC 


I’hc  Mach  number  increment  for  the  Prandtl -Meyer 
expansion  at  point  l*'.  Typically  .05. 
Incompressible  flow  coefficient  of  friction. 
Typically  .003  to  .008.  CPI  =  0.0  if  wall 
shear  is  to  be  zero. 

The  acceptable  error  along  the  exit  characteristic. 
Typically  0.001. 

The  weighting  factor  applied  to  changes  in  the 
wall  angle.  Typically  0.85. 

Wall  angle  increment  from  point  A  to  T.  Used  in 
generating  the  first  guess  for  the  optimum  sur¬ 
face  and  also  in  the  optimization  process. 
Typically  0.5  degrees. 

The  factor  used  to  reduce  the  spacing  of  the 
points  along  the  left  characteristic  originating 
at  point  T.  The  discussion  of  subprogram  SELECT 
contains  additional  information  about  CS.  CS  *  1 
if  all  points  are  to  have  equal  spacing. 

Constant  coefficient  used  to  calculate  the  base 
pressure  in  subprogram  BASE.  Typically  0*846. 

The  exponent  of  the  Mach  number  used  to  calculate 
the  base  pressure  in  subprogram  base.  Typically 
1.3. 

The  decrease  in  the  flow  angle  (degrees)  across 
the  throat.  Used  when  the  linear  start  line  is 
generated  internally.  Typically  6.0. 
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Cards  6  FORMAT  (3F10.0) 

These  are  (NPTSS-1)  cards  containing  the  data  for  the 
first  estimate  of  the  optimum  plug  contour.  I  *  l  corres¬ 
ponds  to  point  A  shown  in  Figure  3  and  this  data  point  is 
not  read  in  since  it  is  included  in  the  start  line  data. 
XS(I)  Ith  value  of  the  x-coordinate  (in). 

RS(I)  Ith  value  of  the  y-coordinate  (in). 

TS(I)  ith  value  of  the  wall  angle  (degrees). 

Cards  7  FORMAT  (5F10.0) 

These  are  NPTSL  cards  containing  the  data  for  the 
start  line  if  it  is  to  be  read  in.  1*1  corresponds  to 
point  A  shown  in  Figure  3. 

XL  (I)  ith  value  of  the  x-coordinate  (in). 

RL  (I)  ith  value  of  the  y-coordinatc  (in). 

ML  (I)  ith  value  of  the  Mach  number. 

^  (I)  Ith  value  of  the  velocity  (ft/scc) . 

1*L  (I)  Ith  value  of  the  flow  angle  (degrees). 

2 .  PROGRAM  OUTPUT 

The  only  program  output  control  is  the  input  para¬ 
meter  NWRITE .  The  value  of  NWRITE  determines  whether  or 
not  the  flow  properties  and  Lagrange  multipliers  at  each 
point  in  the  flow  field  will  be  written  out.  These  arc 
written  out  as  the  calculations  are  made  in  subprograms 
FL0W1,  EXTEND,  FLOW,  and  LANGR1 .  The  order  in  which  the 
output  appears  is  explained  in  the  descriptions  of  the 
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subprograms  in  Appendix  I. 

I’ortions  of  the  output  are  printed  independent  of  the 
value  of  NWRITIi.  These  data  include  all  input  data,  the 
start  line,  throat  half-height,  Prandtl -Meyer  expansion, 
first  guess  for  the  optimum  surface,  Lagrange  multipliers 
along  the  wall,  error  along  the  exit  characteristic,  cal¬ 
culated  and  adjusted  partial  derivatives  (3H/90) ,  new  wall 
contour,  final  wall  contour,  thrust  (lbf),  mass  flow  rate 
(Ibm/scc),  specific  impulse  (Ibf-sec/lbm) ,  flow  injection 
angle  (degrees)  ,  and  the  ambient  pressure  (lbf/in2). 

3.  SAMP  I. H  CASliS 

In  this  section  the  input  data  and  selected  program 
output  sheets  are  presented  for  two  sample  cases. 

a*  Sample  Case  Number  One.  For  this  case,  it  is 
desired  to  obtain  the  optimum  plug  contour  for  a  nozzle 
which  has  a  fixed  length  XLENG  -  12.0  in.,  a  cowl  lip 
radius  RE  *  8.34612  in.,  an  injection  angle  BD  -  -45.0°, 
a  downstream  radius  of  curvature  RHOD  -  0.5  in.,  a  mean 
radius  of  curvature  RRE  -  0.705  in.,  and  no  asymmetry 
which  implies  that  ETA  =  0.0.  The  engine  is  assumed  to 
operate  with  a  chamber  pressure  PO  «  500.  psia  and  a 
chamber  temperature  TO  •  6000°R.  The  exhaust  products  are 
assumed  to  have  a  gas  constant  of  R  -  56.0  (ft  -  lbf)/(lbm 
-  *R)  and  a  ratio  of  specific  heats  G  ■  1.23.  The  nozzle 
is  to  be  designed  for  an  ambient  pressure  PA  ■  14.7  psia 
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and  to  have  a  mass  flow  FLRTC  *  148.077  lbm/sec.  The 
throat  half-height  which  will  pass  this  mass  flow  rate  is 
estimated  to  be  HO  «  0.415S  in.  The  y  coordinate  of  point 
D  and  the  wall  slope  at  that  point  are  estimated  to  be 
YLAST  -  1.75  in.  and  TLAST  =  -13.00°. 

The  Moore-Hall  start  line  analysis  is  to  be  used  and 
the  throat  half-height  is  to  be  modified  to  obtain  the 
desired  mass  flow  rate.  This  requires  that  OPT2  *  1, 

NREAD2  *  1,  and  OPT3  *  1.  The  Mach  number  at  the  throat 
center  line  is  chosen  as  CENTM  -  1.1.  A  total  of  15  data 
points  are  to  be  generated  along  the  start  line  so  that 
NPTSL  *  15.  It  is  desired  to  have  the  maximum  number  of 
points  on  the  plug  surface  which  is  to  be  optimized  so 
that  NPTS  *  50.  NDEGR1  and  NDEGR2  are  both  set  equal  to  1. 
Ten  points  along  the  left  characteristic  originating  at 
point  T  are  to  have  their  spacing  reduced  by  a  factor  of 
two,  thus  NS  -  10  and  CS  -  2.0.  It  is  desired  to  have  the 
partial  derivatives,  3E/96,  recalculated  after  every  six 
iterations  so  that  NDERMX  -  6.  The  first  guess  for  the 
optimum  surface  is  to  be  generated  internally  with  a  total 
of  17  data  points.  Five  of  these  points  are  to  be  located 
on  the  circular  arc  whose  radius  is  RHOD.  Consequently, 
NPTSS  *17,  NCNT  ■  5,  and  NREAD1  ■  1.  Since  the  optimiza¬ 
tion  analysis  is  to  be  carried  out  0PT1  «  1.  NWIUTI;  is 
set  equal  to  q  so  that  the  flow  field  and  l.agrange  multi¬ 
plier  fields  will  be  written  out  in  limited  form. 


Inc  Mach  number  increment  for  the  Prandt i -Meyer 
expansion  at  point  E',  the  flow  angle  increment  along  the 
circular  arc  of  radius  RIIOl),  and  the  incompressible  skin 
iriction  coefficient  are  selected  as  DliLTPM  =  0.05, 

1)1: 1. 1 A I  =  0.5,  and  CFI  =  0.002.  Values  for  ERR  and  WEIGHT 
are  selected  as  0.001  and  0.85,  respectively.  The  con¬ 
stants  for  the  base  pressure  model  are  AA  =  0.846  and 
AH  =  1.3.  Finally,  the  decrease  in  the  flow  angle  along 
the  linear  start  line,  THETAC ,  is  arbitrarily  set  equal  to 
zero  since  it  is  not  used. 

Ihe  inpi't  data  sheet  for  this  case  is  shown  in 

Figure  K-l  and  typical  program  output  is  shown  in  Figure 

K-2. 


b.  Sample  Case  Number  Two.  This  sample  case  is 
similar  to  the  first  but  will  illustrate  the  use  of  the 
linear  start  line.  Only  those  input  parameters  which  are 
different  or  not  used  will  be  pointed  out. 

Since  the  start  line  is  to  be  linear,  ETA  and  RRE 
will  not  be  used  but  for  convenience  left  at  the  same 
values  as  the  previous  case.  CENTM  now  becomes  the  value 
of  the  Mach  number  along  the  entire  start  line  and  is 
given  a  value  of  1.08.  The  linear  start  line  option  also 
requires  tmt  N R I ■  \ I ) 2  *  0.  The  flow  angle  decrease  across 
the  throat  THETAC  =  6.0°.  The  nozzle  length,  cowl  lip 
radius,  and  injection  angle  are  selected  as  XLENG  -  10.0 
in.  ,  RE  *  9.5  in. ,  and  BD  *  -  50.0°  The  nozzle  is  to  be 


designed  for  an  ambient  pressure  PA  =  0.0.  Limited  pro¬ 
gram  out  is  desired  so  that  NWRITE  *  0. 

The  input  data  sheet  for  this  case  is  shown  in 

Figure  K-3  and  typical  program  output  is  shown  in  Figure 
K-4. 

4.  FAILURE  MODES 

Only  one  primary  failure  mode  has  been  observed  in 
the  program.  If  the  first  guess  for  the  optimum  surface 
is  not  smooth  and  compatible  with  the  upstream  geometry, 
the  flow  in  the  throat  region  may  become  subsonic  and 
negative  square  roots  will  cause  the  program  to  stop. 

The  program  contains  several  other  error  checks  and  if  a 
specific  error  is  encountered*  an  appropriate  message  is 
printed  out.  Since  the  program  was  found  to  have  few 
error  modes,  the  output  control  NWRITE  was  normally  set 
equal  to  0. 
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DATA  FOR  THF  START  LINE 


ma:h 

XC  RC  NUMBER 

(IN)  (IN) 


-0.00000  8.34612  1.01018 

-0.01420  8.27196  1.02682 

-0.02850  8.19781  1.03573 

-0.04288  8.12365  1.04593 

-0.0571ft  ft. 04950  1.05745 

-0.07147  7.07534  1.07031 

-0.08577  7.9C119  1.C8456 

-0.10006  7.82703  1.10027 

-0.17422  7.81274  1.08453 

-0 .24837  7.79844  1.07026 

-0.32253  7.78415  1.05738 

-0.30668  7.76985  1.04587 

-0.47084  7.75556  1.03568 

-0.54500  7.74126  1.02679 

-0.61915  7.72697  1.01918 

MASS  FLOW  RATE 

HO  *  0. 


FLOW 

VELOCITY  ANGLE 

(FPS)  I OEGREES ) 


3512.53018  -42.79400 

3536.03900  -42.90326 

3563.37405  -43.07355 

3594.56052  -43.30770 

3620.64050  -43.60805 

3668.67572  -43.97642 

3711.74924  -44.41411 

3758.06758  -44.92189 

3711.66019  -45.43092 

3668.51959  -45.87660 

3629.44690  -46.25991 

3594.36331  -46.58232 

3563.20886  -46.84578 

3535.94055  -47.05271 

3512.53018  -47.20600 

148.07654  LBM/SEC 

43781  INCHES 


FIGURE  K-2  (Continued) 
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DATA  FOR 

PRANOTL-MEYER  EXPANSION  AT 

E 

MACH 

FLOW 

xc 

RC 

NUMBER 

VE10CI TY 

ANGLE 

l  IN) 

(  IN) 

IF  PS) 

(DEGREES) 

-0.00000 

8 .34612 

1.06918 

3665.24677 

-42.07338 

-0.00000 

8.34612 

1.11918 

3815.49463 

-41.05527 

-0.00000 

8.34612 

1.16918 

3963.22870 

-39.84744 

-0.00000 

8.34612 

1.21918 

4108.41064 

-38.50356 

-0.00000 

8.34612 

1.26918 

4251.00873 

-37.05764 

-0.00000 

8.34612 

1.31918 

4390.99725 

-35.53356 

-0.00000 

R.34612 

1.36918 

4528.35681 

-33.94911 

-0.00000 

8.34612 

1.41918 

4663.07367 

-32.3180/ 

-0.00000 

8.34612 

1.46918 

4/95.13953 

-30.65140 

-0.00000 

0.34612 

1.51918 

4924.55133 

-28.95795 

-0.00000 

H • 34612 

1.56918 

5051.31091 

-27.24505 

-0.00000 

8.34612 

1.61918 

5175.42493 

-26.5167/ 

-0.00000 

8.34612 

1.66918 

5296.90393 

-23.78424 

-0.00000 

8.34612 

1.71918 

5415.76288 

-22.04577 

-0.00000 

8.34612 

1.76918 

5532.02026 

-20.33706 

-0.00000 

8.34612 

1.81918 

5645.69812 

-18.5/123 

-0.00000 

8.34612 

1.86918 

5756.82135 

-16.84102 

-0.00000 

8.34612 

1.91918 

5865.41803 

-15.11874 

-0.00000 

8.34612 

1.96918 

5971.51055 

-13.43639 

-0.00000 

8.34612 

2.01918 

6076.155/0 

-11.70569 

-0.00000 

8.34612 

2.06918 

6176.36450 

-IP.Oldli 

-0.00000 

8.34612 

2.11  918 

5275.18146 

-8.3449/ 

-0.00000 

8.34612 

2.16918 

6371.5450R 

-6.88730 

-0.00000 

8.34612 

2 • ?1 91 8 

6466. 79474 

-5.04506 

-0.00000 

8.346  12 

2.2691H 

655/. 67163 

-3.42206 

-0.00000 

8.34612 

2.31918 

6647, 31732 

-1.81691 

-0.00000 

8.34612 

2.3691 8 

6734.7/441 

-0.22823 

-0.00000 

8.3461? 

2.41  91 H 

6820.08636 

1.34056 

-0.00000 

B. *4612 

2.46918 

690  3.2**66  9 

2.M9006 

-0.00000 

8.3461? 

2.5191 7 

6984.4695? 

4.41998 

-0.00000 

8.34612 

2.56917 

7063.5891 7 

6. 93. *09 

-0.00000 

8.3461? 

2.61917 

7140. 76007 

/. 42923 

-0.00000 

8.34612 

2.6691 7 

7216.00623 

8.8902/ 

-0.00000 

8.34612 

2.71917 

7289.37213 

10.34014 

-0.00000 

8.34612 

2.  T6917 

7360.90167 

11.76983 

-0.00000 

8.34612 

2.8191 t 

7430.6383/ 

13. 17934 

-0.00000 

8.34612 

2.84953 

7472.11627 

14.0251/ 

PFINAL  * 

o 

o 

o 

o 

. 

PSIA 

FIGURE  K-2  (Continued) 


IRST  GUESS 

FOR  THE 

OPTIMUM  SUREACI 

xs 

RS 

THETA 

UN) 

UN) 

(DEGREES ) 

-0.61915 

7.  72697 

-47.20600 

-0.6162C 

7.72375 

-47.70600 

-0.61328 

7.72051 

-48.20600 

-0.61039 

7.71725 

-48.70600 

-C. 60752 

7.71396 

-49.20600 

0. 39151 

6.69466 

« 

-42.12827 

1.39054 

5.H7625 

-36.66502 

2. 38957 

5.19169 

-32.28801 

3. 3886C 

4.60454 

-28.68724 

4. 38763 

4.C9241 

-25.66403 

5.38666 

3.64037 

-23.08370 

6.3857C 

3.23786 

-20.85124 

7.38473 

2.87710 

-18.89746 

8.38376 

2.55214 

-17.17070 

9.38279 

2.25834 

-15.63155 

10.38182 

1.99197 

-14.24937 

11.38085 

1.75000 

-13.00000 

FIGURE  K-2  (Continued) 


r 


LAM4  «  H5 • 8669? 

L4C.RANGF  MULTIPLIERS  ALONG  WALL 


POINT 

LAMliOAl 

L AKBDA2 

1 

-21 7. 75 

-5186. 75 

3 

-219.63 

-5082.05 

6 

-220.54 

-5038.20 

10 

-220.02 

-5031.56 

15 

-219.48 

-5024.78 

21 

-218.93 

-5017.77 

28 

-218.36 

-5010.55 

36 

-217.7) 

-5003.14 

45 

-217.20 

-4995.57 

55 

-216.60 

-4987.84 

66 

-215.24 

-4959.99 

78 

-213.82 

-4931.74 

91 

-212.35 

-4933.00 

105 

-210.84 

-4)13.83 

120 

-209.27 

-4894.24 

136 

-207.67 

-4874.39 

153 

-206.02 

-4854.18 

1  /l 

-204.3) 

-4833.  7? 

190 

-202.60 

-4813.01 

210 

-200.8) 

-4792.08 

231 

-199.03 

-4770.94 

253 

-197.18 

-4749.62 

2/6 

-195.31 

-4  728. 1  3 

3C0 

-193.39 

-4705.30 

325 

-187.88 

-4609.07 

351 

-178.31 

-4442.90 

378 

-166. 33 

-4249.48 

4C6 

-152.19 

-4032.33 

436 

-136.35 

-3793.86 

465 

-119.  7 u 

-3538.15 

4  96 

-103.27 

-3271.62 

528 

-87.51 

-2999. 71 

561 

-73.03 

-2727.03 

595 

-60. 1 ) 

-2455.69 

6  30 

-48.91 

-219). 37 

666 

-39.24 

-1940. 70 

Z03 

-31.03 

-1 70). 24 

741 

-24.07 

-1483.67 

780 

-18.23 

-1282.73 

820' 

-13.39 

-1  100.  15 

H6l 

-9.40 

-934.20 

903 

-6.20 

-780.  ) 4 

S46 

-4.27 

-6/1.7) 

THRUST  = 

324  73.44  06  7 

LUf 

FIGURE  K-2  (Continued) 
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# 


i 


FKKMtt  MONO  rxiT  CHAK 


POINT 

fukim 

l 

26. 75906 

2 

21.60920 

3 

17.70381 

4 

1 7. 76507 

5 

17.74876 

6 

17.72^35 

7 

17.70725 

9 

17.68304 

9 

1  7.65718 

10 

17.63000 

11 

17.55747 

12 

17.49206 

13 

17.42  726 

14 

l 7.36442 

15 

1 7.30502 

14 

17.25029 

17 

17.19978 

IB 

1  7.  1  5779 

19 

17. 12318 

20 

l 7.09709 

21 

17.08020 

22 

17.07330 

23 

17.07709 

24 

17.09224 

25 

15.62179 

26 

12.91686 

27 

9.98359 

28 

7.10332 

29 

4.53761 

30 

2.05996 

31 

-0.06379 

32 

-1.48215 

33 

-2.14844 

34 

-2.64489 

35 

-2.70101 

36 

-2.53269 

37 

-2.11817 

38 

-1.55723 

39 

-0.98753 

40 

-0.47862 

41 

-0.07773 

42 

0.08246 

4  3 

0.00073 

FIGURE  K-2  (Continued) 


CALCULATED  PARTIAL  DERIVATIVES 
NT  DTHETA  DE/DT 


0. 10694 
0.11276 
0.11361 
0. 11439 
0.11438 
0.11424 
0.11419 
0.11412 
0. 11403 
0.11453 


0.32544 

0.74828 

0.B9441 

1.53692 

2.80143 

3.55861 

3.60956 

3.67076 

3.73761 

3.77930 


FIGURE  K-2  (Continued) 


ADJUSTED  PARTIAL  DERIVATIVES 


UNT 

DE/OT 

1 

5*8887 ! 

?. 

5.77836 

3 

5.66796 

4 

5.65755 

5 

5.44715 

6 

5.33674 

7 

5.22634 

8 

5.11594 

9 

5.00653 

10 

4.89513 

ll 

4.78472 

i? 

4.67432 

13 

4.56391 

14 

4.45351 

15 

4.34311 

16 

4.23270 

17 

4.12230 

18 

4.01189 

19 

3.90149 

20 

3.79108 

21 

3.68068 

22 

3.67028 

23 

3.45987 

24 

3.34947 

25 

3.23906 

26 

3.12866 

27 

3.01825 

28 

2.90785 

29 

2.79744 

30 

2.68704 

31 

2.57664 

32 

2.46623 

33 

2.35583 

34 

2.24542 

35 

2.13502 

36 

2.02461 

37 

1.91421 

38 

1.80381 

39 

1.69340 

40 

1.58300 

41 

1.47259 

42 

1.36219 

4  h 

1.25178 

FIGURE  K-2  (Continued) 
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NEW  WALL  COMPUTED*  ITERATION  *  0 


xs 

«S 

THETA 

UN) 

(IN) 

(DEGREES 

-0.61015 

7.72697 

-47.20600 

-0.61620 

7.72375 

-47. 70600 

-0.61528 

7.72051 

-48.20600 

-0.61030 

7.71725 

-48.70600 

-0.60T5 2 

7.71396 

-49.20600 

-0.60468 

7.71064 

-49.70600 

-0.60188 

7.70730 

-50.20600 

-0.50010 

7.70394 

-50.70600 

-0.50753 

7.70201 

-50.99053 

-0.50129 

7.69426 

-51.38405 

-0.58375 

7.68474 

-51.80391 

-0.57575 

7.67458 

-51.79632 

-0.56741 

7.66398 

-51.78869 

-0.55802 

7.65320 

-51.78165 

-0.55029 

7.64224 

-51.77543 

-0.54151 

7.63110 

-51.77021 

-0.53259 

7.61977 

-51.76621 

-0.52353 

7.60827 

-51.76362 

-0.50314 

7.58243 

-51.67561 

-0.48169 

7.55534 

-51.58413 

-0.45947 

7.52736 

-51.49025 

-0.43648 

7.49852 

-51.39445 

-0.41271 

7.46881 

-51.29722 

-0.38816 

7.43822 

-51.19906 

-0.36281 

7.40675 

-51.10048 

-0.3  1666 

7.37439 

-51.00207 

-0. 30969 

7.34115 

-50.90446 

-0.28190 

7.30701 

-50.80831 

-0.25328 

7.27196 

-50.71437 

-0.22381 

7.23600 

-50.62350 

-0. 19349 

7.19910 

-50.53664 

-0. 16229 

7.16126 

-50.45486 

-0. 10832 

7.09661 

-49.83930 

-0.C2802 

7.00334 

-48.69214 

0.D7103 

6.89330 

-47.30678 

0.19265 

6.76502 

-45.72471 

0.34327 

6.61512 

-43.97405 

0.53050 

6.44C05 

-42.12433 

0.75616 

6.24264 

-40.23166 

1 .02693 

6.02129 

-38.27101 

1.36150 

5.76696 

-36.18232 

1.78222 

5.47088 

-34.06242 

2.27106 

5.15380 

-31.84796 

2.8  7886 

4.79266 

-29.56016 

3.59466 

4.40568 

-27.20710 

4.46347 

3.98160 

-24.80448 

5.49529 

3.53049 

-22.40295 

6. 71160 

3.05844 

-20.00369 

8. 15566 

2.56711 

-17.55712 

9.8  7923 

2.06312 

-15.02504 

11.4C247 

l .68285 

-13.00049 

FIGURE  K-2  (Continued) 
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SI  W  mAI  l  LMHtMJII  |I# 


I  n  MAI ION  ■  12 


X*. 

III)  |A 

<114  1 

(1  14) 

mcr.urtf.) 

-o.il  #  1  •> 

7.  724,  4  7 

-47.20600 

-0.61620 

7.  72  3  74 

-4  7. 70600 

-n.4  1  12 II 

7.  720M 

-4  n. 20600 

-0.4  10  14 

7. 71 724 

-41,  •  70600 

-0.60/52 

7.  71147, 

-49.20500 

-  0.  6046)1 

7.  7107,4 

-49. 70600 

-  0.  f  II I  MM 

7. 70730 

•50.20600 

-C. 66910 

7. 70394 

-50. 70600 

-0.  596  14 

7. 70066 

-51.20600 

-11.50363 

7. 69  7  1  3 

-51.70600 

-0.54046 

7.69170 

-52.20600 

7.69024 

-52. 70500 

-U.5dS65 

7.68676 

-53.20600 

-0. 5rt 106 

7.68324 

-53.70600 

-0. 6  8049 

7.6  79/2 

-54 . 2040u 

-0.  •>  //•#*> 

7.6761  7 

-94. 70600 

-0. 5  762? 

7.6  73  71 

-54.05119 

-  0. 55909 

7.64924 

-54.95100 

-0.541  n 

7.62460 

-54.84952 

-0.52424 

7.49976 

-54. 74  796 

-  0.  45651 

7.4  74  71 

-54.64635 

-0, 4*858 

7.44448 

-44.54468 

-0. 4 704  I 

7.42404 

-54.4429  ) 

-  0.  4  5 2 1 1 H 

7.49114  3 

-54. 34126 

•0.4  t  1  i  1 

7.4  724,1 

-44.23951 

-0.4  14  / 4j 

7.4464,0 

-54.11775 

*0.  !  ///'A 

7.  i 

-41.91120 

-  0,  ! 2 04,4, 

7.  12-I4M 

-43.684 76 

-'«.  2*'4li0 

7.267  4/ 

-5  3.4584  3 

-  0.  2  J‘i  '5 

7.2064  9 

-5  3.23226 

-44.  1  41  JO 

7.  1  440  1 

-41.10594 

-0.  1  <741 

7.  9  73  72 

-52 • 48024 

- 9.C  70/  i 

6.98732 

-41  .403  38 

0.014.  72 

6.H9291 

-40.  1  7  740 

0.044  4? 

6. 7901 8 

-48.82444 

0.  1 5  184 

6.67934 

-4  7.  1794  1 

0. J4606 

6.46042 

-44.84846 

*4.  4  322  2 

6.4  3391 

-44. 3161  3 

0.6/138 

6.29977 

-42. 74144 

0.  i  mu 

6. 1 4839 

-41.16232 

0.  504  4? 

6.9101 1 

-39.53282 

1.047  3/ 

5.84523 

-38.04383 

1.  30900 

5.694  06 

-36.52344 

6.42758 

3.11906 

-20 

1.540  4? 

4.42687 

-35.03724 

7.C6667 

2.09025 

-19 

1.  7  44  31 

4.35390 

-33.58877 

7.76020 

2.65593 

-10 

?.o  /043 

r».l  7533 

-32.17981 

0.51760 

2.41666 

-17 

2.  1  7073 

4.99131 

-30.81070 

9.31720 

2.17776 

-16 

2.  4.'*4*mC 

4.80191 

-24.48134 

10.19500 

1.93535 

-14 

3  ,  fl  4 II 8  8 

4 .60*  «.  9 

-28.19834 

1 1.14100 

1.69674 

-13 

1.4285? 

4.40968 

-26.45961 

11.42370 

1.62990 

-13 

1.4*  1895 

4.20629 

-24. 75614 

4.2M2  7  4 

3.99768 

-24.58448 

4.  /», I  2  4 

3. 78446 

-23.44677 

S.  2  7324 

3.46819 

-22.  15077 

5.8//I3 

3.  34649 

-21.27471 

FIGURE  K-2  (Continued) 
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18107 
16719 
07216 
01453 
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LAM4  * 


85*  71503 


LAGRANGf 

MULTIPLIERS 

ALCNG  WALL 

POINT 

LAMBDA1 

L4MR0A2 

l 

-218.99 

-4947.75 

3 

-21 7.64 

-4935.95 

6 

-216.29 

-4924.12 

10 

-214.94 

-4912.28 

16 

-213.58 

-4900.43 

21 

-212.23 

-4888.56 

28 

-210.87 

-4876.69 

36 

-209.51 

-4864.81 

46 

-208. 14 

-4852.92 

56 

-206. 77 

-4841.02 

66 

-203.72 

-4814.52 

76 

-200.67 

-4787.99 

91 

-197.60 

-4751.44 

IC5 

-194.52 

-4734.87 

120 

-191.44 

-4708.28 

136 

-186.41 

-4647.48 

153 

-177.76 

-4523.59 

171 

-168.21 

-4387.39 

190 

-157.93 

-4226.53 

210 

-147.21 

-4059.9? 

231 

-136.31 

-3885.80 

253 

-175.45 

-3707.02 

2  76 

-114.81 

-3526.15 

300 

-104.55 

-3345.46 

325 

-94.79 

-3166.79 

351 

-85.59 

-2991.64 

3  78 

-77.01 

-2821.10 

4C6 

-69.05 

-7655.97 

435 

-61.73 

-7496.77 

465 

-55.02 

-7343.77 

496 

-48.89 

-2197.10 

528 

-43.31 

-2056.72 

561 

-38.27 

-1923.39 

595 

-33.73 

-1 796.86 

630 

-29.61 

-1676.20 

666 

-25.90 

-1561.06 

703 

-22.56 

-1451.72 

741 

-19.58 

-1348.98 

780 

-16.89 

-1250.87 

820 

-14.46 

-1157.06 

861 

-12.33 

-1069.76 

903 

-10.40 

-986.36 

946 

—  8.  66 

-906.90 

990 

-7.13 

-833.36 

1035 

-5.  75 

-763.37 

ICttl 

-4.51 

-698.76 

1128 

-4.19 

-692.03 

THRUST  -  32648*37770  LBF 

FIGURE  K-2  (Continued) 
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E R ft  OR  ALONG  F  XI  T  CHAR 


POINT 


ERROR 


0.00334 
0.00321 
0.00295 
0.00286 
0.00274 
0.00268 
0.00261 
0.00256 
0.00252 
0.00248 
0.00223 
0.00219 
0.00213 
0.00215 
0.00326 
0.00432 
0.00222 
0.00189 
0.00174 
0.00151 
0.00133 
0.00133 
0.00129 
0.00123 
0.00120 
0.00116 
0.U01 15 
0.00112 
0.00106 
0.001 01 
0.00085 
0.00065 
0.00046 
0.00029 
0.00009 
•0.00020 
•0.00054 
■0.00072 
•0.00103 
•0.00153 
•0.00170 
•0.00175 
-0.00148 
0.00021 
0.00304 
0.00317 
0.00127 


FIGURE  K-2  (Continued) 


' 

1 


■ 

k 


final  solution 


XS 

RS 

(IN) 

UN) 

-0.61915 

7.72*97 

-0.61620 

7.72375 

-0.6132* 

7.72051 

-0.61039 

7.71725 

-0.60752 

7.71396 

-0.60468 

7.71064 

-0.60188 

7.70730 

-0.59910 

7.70394 

-0.59635 

7. 70055 

-0.59363 

7.69713 

-0.59094 

7.693  70 

-0.58878 

7.69074 

-0.58566 

7.68676 

-0.58306 

7.68376 

-0.5*049 

7.67972 

-0.57796 

7.67617 

-0.5767? 

7.67371 

-0.56909 

7.64973 

-0.541  77 

7.62468 

-0.62474 

7.59973 

-0.50650 

7.5746* 

-0. 40857 

7.54944 

-0.47042 

7.52401 

-0.45207 

7.49*38 

-0.43351 

7.47256 

-0.41474 

7.44656 

-0.37222 

7.3*799 

-0.32863 

7.32*44 

-0.2*39* 

7.2*79? 

-0.23*21 

7.20644 

-0.19134 

7.14397 

-0.13784 

7.07363 

-0.C7020 

6.9*72? 

0.C0682 

4.892  79 

0.C9454 

6.79006 

0.19397 

6.67970 

0.30622 

6.56036 

0.43740 

6.43374 

0.57368 

6.29969 

0.730*3 

6.15*20 

0.90517 

6.00991 

1.C9764 

5. *550? 

l. 30979 

5.69385 

1.54123 

5.52666 

1.79463 

5.35368 

2.C7077 

5.17512 

2.3710* 

4.99110 

2.69716 

4.80170 

1.C4926 

4.60179 

3.42889 

4.4094 C 

3.83931 

4.20610 

4.2*314 

3.99752 

4. 76163 

3.78430 

5,77356 

3.56805 

5.8773* 

3.3463* 

THE  TA 
(DEGREES ) 


-•*7. 20600 

-47.70600 

-48.20600 

-40.70600 

-49.  20600 

-49.70600 

-SO. 20600 

-50.70600 

-51.20600 

-51.70600 

-52.20600 

-52.70600 

-53.20600 

-53. 70600 

-54.20600 

-54.70600 

-56.05119 

-54.96090 

-54.64941 

-54.747*3 

-54.64622 

-54.54454 

-54.442*3 

-54.34109 

-54.23933 

-54.13756 

-53.91107 

-53.6*462 

-53.45*27 

-53.23207 

-53.09551 

-52.47917 

-51.40267 

-50.175** 

-4*. *2289 

-47.37762 

-45. *6707 

•44.31414 

-42.73942 

-41.16029 

-39.590*2 

-3*. 041*9 

-36.52157 

-35.03545 

-33:5*70* 

-32.17*22 

-30.80942 

-29.4799* 

-28.19706 

-26.95*46 

-23.73511 

-24.5*359 

-23.44597 

-22.33010 

-21  27417 


•  1 


6.4277* 
7.C66H0 
7.  76093 
8.51357 
9.31719 
10.195  7? 
11.14108 
11.4237* 


3.11*97 
7. *901* 
2.659*9 
2.41663 
2.1 7774 
1.93532 
1.69668 
1.6299* 


-20.21145 
-19.1*166 
-18.14700 
-17.09204 
-16.01446 
-14. *3347 
-13.4952* 
-13.07*36 


thrust 


3264*. 3 7720  LKF 


HASS  FLOW  RATE  ■  148.07664  LHM/SFC 

ISP  •  22C.48797  LRF-SEC/LQH 

8FTA  •  -49.000  OEGRECS  PA  •  14.70  PSIA 


DATA  FOR  THE  START  LINE 


xc 

RC 

MACH 

NUMBER 

VELOCITY 

FLOW 

ANGLE 

(  IN) 

(  IN) 

(FPS) 

(DEGREES) 

0. 

9.5C000 

1.C8000 

3697.98572 

-47.00000 

-0.04064 

9.46590 

1.08000 

3697.98572 

-47.42857 

-0 .08 128 

9.43179 

1.C8000 

3697.98572 

-47.85714 

-0.12193 

9.35769 

1.C8000 

3697.98572 

-48.28571 

-0.16257 

9.36359 

1.08000 

3697.98572 

-48.71428 

-0.20321 

9.32948 

1.08000 

3697.98572 

-49.14285 

-0.24365 

9.29538 

l.CBCOO 

3697.98572 

-49.57143 

-0.28460 

9.26128 

1.C8000 

3697.985 72 

-50.00000 

-0.32514 

9.22717 

1.C8000 

3697.98572 

-50.42857 

-0.36678 

9.19307 

1.08000 

3697.98572 

-50.85714 

-0  .40642 

9.15897 

1.C8000 

3697.98572 

-51.28571 

-0.44707 

9.12487 

1.08000 

3697.98572 

-51.71428 

-0.48  771 

9.09076 

1.08000 

3697.98572 

-52.14286 

-0.52835 

9.05666 

1.08000 

3697.98572 

-52.57143 

-0.56899 

9.02256 

l.CBCOO 

3697.98577 

-53.00000 

MASS 

FLOW  RATE  « 

148.07702 

LDM/SEC 

HO  a 

0.37138  INCHES 

oooooooooooooooooooooooooooooooooooooocoooo 


DATA  FOR  PRANDTL-MF.  YER  EXPANSION  AT  E 


ma:h 

FLOiX 

xc 

RC 

NUMBER 

VELQCI TY 

ANGLE 

(  IN) 

(  IN) 

CFPS) 

iuegrfcs  ) 

0. 

9.5C000 

1.13000 

3847.69293 

-45.9345/ 

0. 

9.5C0C0 

1.18C00 

3994.87750 

-44,69364 

0. 

9.5C000 

1.23000 

4139.50255 

-43.32523 

0. 

9.5C000 

1.28000 

4281.53760 

-41.86061 

0. 

9.5C0O0 

1.33000 

4420.95844 

-40.32211 

0. 

9.5C000 

1.38000 

4557.74689 

-38.72652 

0. 

9.5C000 

1.43000 

4691.89032 

-37.08692 

0. 

9.5C000 

1.48000 

4823.38165 

-35.41376 

0. 

9.5C000 

1.53000 

4952.21893 

-33.71553 

0. 

9.5CC00 

1.58000 

5078.40509 

-31.99925 

0* 

9.5CC00 

1.63d00 

5201.94751 

-30.2<07b 

0. 

9.50000 

1.68000 

5322.85797 

-28.53505 

0. 

9.50000 

1.73C00 

5441.15198 

-26.79623 

0* 

9.5C000 

1.78C00 

5556.84894 

-25.05789 

0* 

9.5C000 

1.83000 

5669.97150 

-23.32308 

0. 

9 .50000 

1.88000 

5780.54523 

-21.59440 

0. 

9.50000 

1.93000 

5888.59888 

-19.87411 

0. 

9.5C000 

1.58000 

5994.16327 

-18.15414 

0. 

9.5CC00 

2.C3000 

6097.27167 

-16.4661/ 

0. 

9.5COOO 

2.08000 

6197.95947 

-14.78162 

0. 

9.5COOO 

2.13000 

6296.26361 

-13.11172 

0. 

9.5CCC0 

2.18C00 

6392.22290 

-11.45754 

0. 

9.5C000 

2.23000 

6485.87708 

-9.81997 

0. 

9.5C000 

2.28000 

6577.26727 

-8.19977 

0* 

9.5C000 

2.33000 

6666.43549 

-6.59759 

0. 

9.5C000 

2.38C00 

6753.42450 

-5.01396 

0. 

9.5CC00 

2.43  COO 

6838.27771 

-3.44932 

0. 

9.5COOO 

2.48000 

6921.03882 

-1.90404 

0. 

9 .50000 

2.53000 

7001.75214 

-0.37838 

0. 

9.5CC00 

2.58000 

7080.46179 

1.12742 

0. 

9.5CC00 

2.63000 

7157.21216 

2.61321 

0. 

9.5C000 

2.68000 

7232.04755 

4.07889 

0. 

9.5COOO 

2.73000 

7305.01215 

5.52439 

0. 

9.5C000 

2.78C00 

7376. 14^90 

6.94971 

0. 

9.5CC00 

2.83000 

7445. 5 J4 15 

8.35486 

0. 

9.5C000 

2.88000 

7513. i 1823 

9.  73989 

0. 

9 .50000 

2.93000 

7579.03491 

11.10489 

0. 

9.5COOO 

2.58000 

7643.29626 

12.44996 

0, 

9.5COOO 

3.03000 

7705.94385 

13.77525 

0. 

9.5C000 

3.C8000 

7767.01886 

15.08089 

0. 

9.5C000 

3.13000 

7826.56146 

16.35705 

0. 

9.5CC00 

3.18000 

7884.61151 

17.63394 

0* 

9.5C000 

3.2006/ 

7908.18787 

18.19502 

PF INAL  «  7.78023  PSIA 


FIGURE  K-4  (Continued) 
155 


FIRST  GUFSS  FOR  THF  OPTIMUM  SURFACE 


xs 

R  S 

THETA 

(  IN) 

(  IN) 

(DEGREES) 

-0.56899 

9.02256 

-53.00000 

-0.56638 

9.01906 

-53.50000 

-0.5638C 

9.01554 

-54.00000 

-  0. 56 1?5 

9.01200 

-54.50000 

-C. 55874 

9.00844 

-55.00000 

0.27374 

7.88769 

-51.73091 

I. 10622 

6.89303 

-48.35806 

1.9387C 

6.01113 

-44.89351 

2.77118 

5.23086 

-41.35328 

3.60366 

4.54280 

-37.75689 

4.43613 

3.93891 

-34.12676 

5.26861 

3.41226 

-30.48725 

6.10109 

2.95680 

-26.86361 

6.93357 

2.56725 

-23.28078 

7. 76605 

2.23896 

-19.76230 

8.59853 

1.96777 

-16.32934 

9.43101 

1.75000 

-13.00000 

FIGURE  K-4  (Continued) 
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I 


* 


LAMA  * 


164.97913 


LAGKANGE  MULTIPLIERS  ALCNG  WALL 


POINT 
1 
3 
6 
10 
15 
21 
28 
36 
45 
55 
66 
78 
91 
105 
120 
136 
153 
171 
190 
210 
231 
253 
2  76 
300 
325 
351 
378 
406 
435 
465 
496 
528 
561 
595 
630 
666 

THRUST  ■ 


LAMBDA  1 
-275.28 
-276.40 
-275.92 
-275.23 
-274.53 
-273.83 
-273.12 
-272.42 
-271.71 
-271.01 
-269.43 
-267.85 
-266.27 
•*264.68 
-263.08 
-261.49 
-259.89 
-254.16 
-244.95 
-232.11 
-215.31 
-194.65 
-171.29 
-146.82 
-123.09 
-101.24 
-82.13 
-66.25 
-53.21 
-42.76 
-34.24 
-27.11 
-20.76 
-14.92 
-9.56 
-6.96 


LAMB0A2 

-4752.82 

-4702.85 

-4692.23 

-4685.90 

-4679.76 

-4673.69 

-4667.73 

-4661.88 

-4656.06 

-4650.40 

-4637.92 

-4625.88 

-4614.20 

-4602.81 

-4591.69 

-4580.82 

-4570.22 

-4494.79 

-4380.28 

-4236.02 

-4063.82 

-3865.38 

-3647.21 

-3413.57 

-3166.0? 

-2910.39 

-?648.27 

-2371.98 

-2090.78 

-1804.40 

-1521.86 

-1264.22 

-1052.77 

-908.59 

-824.06 

-785.48 


35892.77539  LBF 


FIGURE  K-4  (Continued) 


ERROR  ALONG 

EXIT  CHAR 

POINT 

ERROR 

l 

-6.04158 

2 

-10. 79777 

3 

-11.86355 

A 

-11.89563 

5 

-11.92187 

6 

-11.94587 

7 

-11.96653 

8 

-11.98405 

9 

-11.99976 

10 

-12.01137 

ii 

-12.03304 

12 

-12.03968 

13 

-12.03462 

14 

-12.01949 

15 

-11.99474 

16 

-11.96166 

17 

-11.91884 

18 

-12.94987 

19 

-14.52193 

20 

-16.30766 

21 

-18.03127 

22 

-19.38413 

23 

-20.08290 

24 

-20. 03929 

25 

-19.38645 

26 

-18.23950 

27 

-16.80228 

28 

-15.38812 

29 

-13.98865 

30 

-12.65011 

31 

-11.24749 

32 

-9.54065 

33 

-7.20379 

34 

-4. 16381 

35 

-0.96856 

36 

0.34578 

FIGURE  K-4  (Continued) 


CALCULATED  PARTIAL  DERIVATIVES 


DTHF TA 


DE/DT 


0. 10705 
0. 112 79 
0*11447 
0. 11475 
0. 11463 
0. 11440 
0. 11437 
0. 11450 
0. 11451 
0.  11923 


0.51634 
0.02277 
0*41638 
0*05701 
1*53350 
2*3055  7 
2*35282 
2.42157 
2.45974 
2.54819 


FIGURE  K-4  (Continued) 


ADJUSTED  PARTIAL  DERIVATIVES 


INT 

DE/DT 

l 

4* 12026 

2 

4.03236 

3 

3.94447 

A 

3.85657 

5 

3.76867 

6 

3.68078 

7 

3.59288 

•  8 

3.50499 

9 

3.41709 

to 

3.32919 

11 

3.24130 

12 

3.15340 

13 

3.06551 

14 

2.97761 

15 

2.88971 

16 

2.80182 

17 

2.71392 

i« 

2.62603 

19 

2.53813 

20 

2.45023 

21 

2.36234 

22 

2.27444 

23 

2.1B655 

24 

2.09865 

25 

2.01075 

26 

1.92286 

27 

1.83496 

28 

1.74707 

29 

1.65917 

30 

1.57127 

31 

1.48336 

32 

1.3954b 

33 

1.30759 

34 

1.21969 

35 

1.13179 

36 

1.04390 

FIGURE  K-4  (Continued) 


NEW  WALL  COMPUTED* 


ITERATION 


xs 

RS 

THFTA 

(IN) 

(IN) 

(DEGREES 

-0.56899 

9.02256 

-53.00000 

-0.56077 

9.01160 

-53.41534 

-0.55193 

8.99973 

-53.64747 

-0, 54277 

8.98730 

-53.57762 

-0.53341 

8.97463 

-53.50608 

-0.52393 

8.96183 

-53.43266 

-0.51432 

8.94889 

-53.35740 

-0.50459 

8.93583 

-53.28018 

-0.49476 

8.92267 

-53.20076 

-0.48480 

8.90938 

-53.11926 

-0.46248 

8.87969 

-52.98544 

-0.43943 

8.84921 

-52.84839 

-0.41590 

8.81822 

-52.70842 

-0.39189 

8.78678 

-52.55529 

-0,36743 

8.75492 

-52.41890 

-0.34254 

8.72266 

-52.26911 

-0.31722 

8.69003 

-52. n 568 

-0.27880 

8.64099 

-51. .2692 

-0.22826 

8.57755 

-51.18012 

-0.16449 

8.49921 

-50.51792 

-0.C8428 

8.40312 

-49.77222 

0.C1726 

8.28475 

-48.99129 

0.14557 

8.13927 

-48.19552 

0.30893 

7.95921 

-47.3/916 

0.51752 

7.73599 

-46.49313 

0.7/872 

7.46548 

-45.50348 

1.11348 

7.13184 

-44.29124 

1.548/1 

6.71921 

-42.63359 

2.C8263 

6.24401 

-40.55438 

2.76240 

5.68993 

-37.84100 

3.6C098 

5.07685 

-34.42610 

4.59672 

4.44342 

-30.40973 

5. 75H59 

3.82006 

-26.92433 

7.  C  7006 

3.24396 

-21.15350 

8.5649/ 

2.741/0 

-16.0H885 

9.43101 

2.61568 

-13.14601 

J 


FIGURE  K-4  (Continued) 


xs 

III) 


-  0.  46899 
-0.0#  #  '.h 

-  #1.  0#,  1MO 

-  20 
-##.*,  0>l /4 
-0.  r,6#,?6 

-  f*.  ‘  0  1  #9 

-  9 . l.  o  |  i? 

-  >J.  04  A  98 

-  II.  ‘j 4#.4 ? 
-o.  t4#.?9 

-  0  •  *j  <t  I  19 

■  0.  6  40  11 

•  (I.  o?  /  I 
l).S|4?/ 

-  0.  HI  ()') 

■  0.  <i  (t  /H? 
-.).<■  /4  4  0 

-  0.  44099 
■0.4  4  746 
■0.4  Um| 

-  O.  42909 

•  U.  Jir*/n 
•0.  10<ti>4 

■  O.  1/446 
•II.,'  #04  9 
■o./4//  » 

n.i’iMi 

■0.1  I  14  4 

•  9.0 //  »l 

n.  r  i  io 
f  • 1  » '■  ,  *• 
0.  I  IM,  I 

0.  I  1/1.9 
•1.44  IMI 
0.  6  9#»4-» 
0.  #04  #4 
'I.  4  1#.  14 
I  .  I  5  #  It 
1  .  I*»»l  #•# 

1  •  faC(r>0 
l  .  (16  19H 
I'.O^H 
2. 4406? 
2.  7  94  94 

j.  10/99 

1.6*,  Ml 
1.S4114 
4.  40960 
4  .  <J  M  8  4  *, 
0.40/ #| 
0.  -',4000 
4.  0 /#.».#. 
#.  I  494  # 

#  .  I*  1 1  #  I  II 


•  IDA  I  Milo  1 1  00 


.» 0 

III!  IA 

1 1  N) 

101  OKI  L  S  | 

•).o/?o#, 

-01 . 00003 

9. 019(14 

-0  3 .0*3030 

9.01 044 

-04.03003 

9.f,|?00 

-04.OO300 

9. 00044 

-00.00033 

0.004  US 

-00.00000 

0.001 

-06.00033 

A.  9  9/4? 

-06.00000 

8.9919/ 

-0 / . 03333 

4. '100  10 

-0/. 00003 

8.98461 

-Ob. 00003 

#1.  On?  Of) 

-ob.onooo 

A. 9801  / 

-ou.iioo  io 

8.96869 

-0*1 .83896 

A  •  9  1  /  1  J 

-0*1.  #0344 

H,  9  J  ‘-4? 

"Ob. 69400 

A.  89  W.  1 

-Ob. 6  If  la 

P 

H.  8 #1  #0 

-oh.*»ho?o 

A.  849/, 9 

-Oa.oiio/ 

A.  8?  /OH 

-OH. 48229 

ft.  It  O'.  1  / 

-09.4120  9 

M.  78104 

-Oa .  lb  193 

H./'llll 

-Ob. 200? 9 

0.68/69 

-OH.  m?# 

8.4  i  :  MO 

-Oh  .  I*H664 

H.O  # 4 Ml 

-0/.64  #44 

H. 00/41 

-04. #  #/ 64 

h. 4  t ;•#,•# 

-Oo.  /?f>?? 

It.  <40  // 

-04.4-*  3  111 

*1 .  0  M  1  0 

•Ol.lll  :##•# 

8. 1 OHOl 

-01 .4  1*.  » 1 

M.  04  O  10 

-49. /OHIO 

/.0  1/  !«• 

-4  8.  U  6  #0 

/.'III  /  l| 

-44. / !?:>? 

/.#,  #4  /? 

-44.41 #6 # 

/•  0  14  04 

-4/. 41/49 

/.  1  It  It  4  V 

-4II.M0240 

#./  10#.? 

-'19.  1  1  t!  4  H 

/.')  #i.9m 

-1/.41 43/ 

0.91/9/ 

-10. /04?4 

6. /4  4  00 

-14. 14 ?1 » 

4.0  #04 M 

-32.6/853 

#..  l'»?  /  1J 

6./II/0 
4.0?#, I  # 
6.81/89 

-31.00334 

-29.0/39/ 

-?H. lOblK 
-26.  / H 2 4 0 

8. 0066b  1.90370 
9.20644  1.71978 
9.40967  1.67281 

-l*. 19727 
-13.10528 
-12.84692 

*>.{,4  70S 
0.4000? 

-20.43016 

-24.13461 

THKUS1  •  16243. 59H14 

LBF 

6.2609? 

0*  090(10 

-22 • HO  1 0 1 
-21.61113 

MASS  HOW  *ATC  ■  148.37732  LOM/SEC 

4.M4//1 

4.4  /  ?  0 ( 

-20.  1/ #10 
-19.1/766 

ISM  ■  244.  79007  LAF-SFC/IBM 

4.4  r/i  i 

4.2  M?  04 

-1  /.  9H340 
-10.  /HOOi 

HI  IA  »  -OO.OCO  IF  SRC fc  S 

PA  «  3.  p 

4.091  1  ? 

-10.0/71? 

FIGURE  K-4  (Continued) 
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tlBffC  MAIN 

C  I* LUC  NUZZLE  PROGRAM  tflTH  FIXEO  INLET  MAI 

C  MAI 

OIMENS  ION  REG(  1275,7),  XLI75),  Al(75),  MU  75 1  »  /LI75I ,  TLI73I,  XSIMAI 
1 1251 •  RSI  125 )»  TSI125),  NP0INTI51),  ERR0RI50),  TX(50),  TV(50>,  HXSMAI 
2150) *  HRS 1 50 ),  HTS (50) •  C0EFI50).  E0I50),  XAI75I,  VA(75),  MAI75),  MAI 
3VA| 75 ) »  TAI75I,  HEADER! 12)  MAI 

REAL  M.ML.MA  MAI 

INTEGER  OPTI»OPT2»OPT3  MAI 

COMMON  /82/  XL,RL«ML,VL,TL  MAI 

COMMON  /B3/  PA, PO,TO,RHOO,G, R,GO  MAI 

COMMON  /BA/  HO,RE,BO,ETA,RAE,RHOO,OELTAT,AA,AB,*CNT,THETAC  MAI 

COMMON  /B5/  REG  MAI 

COMMON  / BA/  NPOINT  MAI 

COMMON  /B7/  ERROR  MAI 

COMMON  /BS/  NMRITE  MAI 

COMMON  /BA/  RAO, FOOT  MAI 

COMMON  /810/  XA« YA,MA,VA,TA  MAI 

COMMON  /Bll/  CFl«CF2,CFB,CFI*FLRTt THRUST tFLRTC  MAI 

COMMON  /B12/  NREA01,NREA02,OPT1,OPT2,OPT3  MAI 

COMMON  /Bl)/  XS»RS*TS  MAI 

C  MAI 

10  UNITE  I A« 390 )  MAI 

READ  I 5»440 )  HEAOER  MAI 

RE AO  15,450)  PA, PO, TO, R,G*FLRTC ,XLENG, YLAST, TLAS T  MAI 

READ  15,460)  HO,RE,BO,ETA,RRE,CENTN,RHOO  MAI 

RE AO  (5,470)  NPTSL ,NP rS,NDEGRl,N0EGR2,NDERMX,NPT SS,NS,NWRI TE,NCNT,MAI 
INKEAOI ,NREAD2,OPTI,OPT2,OPT3  MAI 

RE  AO  (5, ABO)  OELTPM.CFI ,  ERR,  WEIGHT  ,DELTAi>  ,CS,  AA,  At,  THETAC  MAI 

IF  INNEADl.EQ.il  GO  TO  20  MAI 

RE AO  15,490)  I XSI I l,RS( I ItTSI I) , I-2.NPTSS)  MAI 

20  CONTINUE  MAI 

RA0>3. 14139/ 1B3.  MAt 

FOOT ■ 1 2.0  MAI 

GO-32.1739  MAI 

IF  (0PT2.EQ.1)  GO  TO  40  MAI 

RE AO  (5,600)  IXL(ll«RLlll,ML(t)«VLII),TLII),l-l, NPTSL)  MAl 

00  30  1-1, NPTSL  MAI 

XL(l)-XL(I)/FOOT  MAI 

RLin-RLIII/FOOT  MAI 

30  CONTINUE  MAI 

40  CONI  I NUE  MAI 

C  MAI 

C  UNITE  THE  INPUT  OATA  MAI 

C  MAI 

UNITE  (6,650)  HEAOER  MA| 

UNITE  (6,4001  PA,PO,TO,R,G,FLRTC,XLENG(VLAST,TLLST  MAI 

UNITE  (6,410)  HO,AE»BD»ETAf RRE»CENTN»RMOD  MAI 

UNITE  (6,420)  NPTSL »NP TS.NOEGRl ,NOEGR2,NOERMX,N* TSS.NS.NURl TE.NCNTMAl 

l  ,NRf  Al)  1  ,NRF A02, OPT  l,OPT2,OPT3  MAI 

UNITE  (6,430)  DELTPN,CFI ,ERR,UE IGHT,OELTAT,CS,AL ,AB, THETAC  MAI 

C  MAI 

RE-NC/FOOT  MAI 

XLENG-XLENG/FOOT  MAI 

VLAST-YLAST/FOOT  MAI 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 
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21 
22 

23 

24 
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28 
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46 
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52 

53 
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50 


C 

c 

c 

c 

c 

c 


c 

c 

c 


c 

*0 


TO 

c 

c 

c 


c 

c 

c 


c 

c 

c 


HO- HO/ FOOT 

MAI 

55 

00  SO  l-2tNPTSS 

MAI 

5A 

xsm-xsu  l/FOOT 

MAI 

57 

*s  m- asm /foot 

MAI 

5S 

CONTINUE 

MAI 

59 

PA-PA-144.0 

MAI 

40 

PO-PO* 144.0 

MAI 

61 

RHOO- PO/ ( R-T 01 

MAI 

62 

RHOO-RHOO/FOOT 

MAI 

63 

NPTSN-0 

MAI 

64 

IDERIV-0 

MAI 

65 

ISCIL-0 

MAI 

66 

ITER-0 

MAI 

67 

NRECDS-0 

MAI 

68 

NFIP-0 

MAI 

69 

Nl-2 

MAI 

70 

N2-0 

MAI 

71 

NZ-2 

MAI 

72 

PS TOP- PA 

MAI 

73 

MAI 

74 

CALCULATE  THE  START  LINE  AND  THE  P-M  EXPANSION 

MAI 

75 

MAI 

74 

CALL  START  I CENTM(NPTSL«PSTOPt J .NPTSStDELTPM.XL: NC* TLAST, TLASTI 

MAI 

77 

MAI 

78 

CALCULATE  THE  FLOM  IN  REGION  RI 

MAI 

79 

MAI 

80 

CALL  FLOtfl  I NPTSL* JtNTOT ) 

MAI 

81 

XHOLO-XLfl) 

MAI 

82 

RHCLO-RLU) 

MAI 

83 

THOLO-TLIII/RAO 

MAI 

84 

MAI 

85 

OIVIOE  THE  LINITING  LEFT  CHARACTERISTIC  INTO  NPTS  ANO  CURVE  FIT 

MAI 

86 

| 

MAI 

87 

CALL  SELECT  {NPTS«NTOT«NOEGRt •NStlStXL  *RL* ML« VL. TLI 

MAI 

88 

CF2-0.0 

MAI 

89 

GO  TO  TO  - 

MAI 

90 

MAI 

91 

CALL  EXTENO  INTQT»NDEGAl»NPTSN» ITOTtNMRl TE iNSAV: »XF INAL »| TER) 

MAI 

92 

NEWS- 1 TOT 

MAI 

93 

IF  (ITER.GE.2I  NEMS-NSAVE 

MAI 

94 

IF  INTIP.EQ.I)  NEMS-NSAVE 

MAI 

9V 

CALL  SELECT  (NPTSiNEMStNOEGRlv NS,:S, XA.YA.MA, VA» TA» 

MAI 

96 

CONTINUE 

MAI 

97 

MAI 

98 

CALCULATE  THE  RAIN  FLOM  FIELO 

MAI 

99 

MAI 

100 

NCHECK-0 

MAI 

101 

CALL  FLOM  IN1«NPTS»NPTSS«N0EGR2»N.HECK ,XLENG«NR:CROtXFlNAL 1 

MAI 

102 

MAI 

103 

CALCULATE  THE  LAGRANGIAN. MULTIPLIER  FIELO 

MAI 

104 

MAI 

105 

CALL  LANGRI  INRECR0(NI»N2»LANA«0PT1 1 

MAI 

106 

IF  (OPTI.EQ.O)  GO  TO  SRO 

MAI 

107 

MAI 

108 

SUBSTITUTE  MALL  POINTS 

MAI 

109 

MAI 

110 

00  00  K»  l , NRECRO 
JaNPQl NT  UOK 
t-NPTSN»K 
XSIII-REGI J, I) 

MS (It *REG( J»  2) 

TSII  laKEG(J,5)/RA0 
EO(K)aFRAORIK) 

HXS ( K ) aXS ( I ) 

HRSlKMRStl) 

HTSIKI-TSI  1  » 

•0  CONTINUE 

C 

C  CHECK  TOR  FINAL  SOLUTION 

c 

IMN*0 

I T  *NPUINT ( NRECRO ) 

00  90  1-1, NRECRO 
l/»l/*l 

IF  <AHS<ERR0R<  I  )/REG<  12,6)  ),GE»ERA)  00  TO  100 
90  CONTINUE 

IF  IN* I 
CO  TO  120 
C 

100  IF  < I TEH.EQ. 0)  GO  TO  110 

IF  < IDfcRIV.EQ.NOERMX)  GO  TO  110 
IF  INRFCRO.GT.NRECOS)  GO  TO  140 
GO  TO  210 
C 

C  OEGIN  ADJUSTING  SLOPES  TO  DETERMINE  PARTIAL  DERIVATIVES 

C 

no  or>.oo2 

NCAL«1U 

IF  INCAL.GT. NRECRO)  NCAL-NRECRO 

IOAU J« (NRECROAS l/NCAL 

MMITE  (0,5701 

WRITE  (6,5601 

NAOJ* l-IOAOJ 

MCHECKM 

OO  120  lal,NCAL 

NAUJ*NADJt 10A0J 

IK-NRECRD-NADJM 

IF  (IK.LT.2)  |X-2 

I J-NPTSN*IK 

TS(IJ)-HTS( IK) »OT«lSO./3. 14159 
C 

C  DETERMINE  THE  FLOW  FIELD  FAOM  |K  TO  NAECRD  AND  THE  LANGR  F1EL0 
C 

LMXV>NPTSN*NRECRD 

CALL  FLOW  ( I K, NRECRO, L MX Y,N0EGR2t NCHECK, XLENG»N(ECRD,XF INAL) 
N2-1 

CALL  LANGR l  (NRECRO, IK,N2»LAM4»0PTI) 

C 

C  CALCULATE  AND  STORE  THE  PARTIAL  DERIVATIVES 
C 

K-NPOINTI IK ) ♦!< 

OS*REG(K, 5 ) *  ISO* /3« 14159-HTSI IR  I  ® 


MA 

MA 

MA 

MA 

MA 

MA 
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MA 
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7 

8 
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0 

1 

2 

3 

4 

5 
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7 

8 
9 
0 
1 
2 

3 

4 

5 

6 

7 

8 
9 
0 

1 

2 

3 

4 

5 

6 
7 
<1 
9 
0 

1 

2 

3 

4 

5 

6 

7 

8 
9 
0 
1 
2 

3 

4 
3 
* 


1 


V 

COEFII  l-IERRORI  IKI-EOI  |K|)/OS 

MAI  167 

WHITE  (6,580)  IK,DS,COEFf|| 

MA|  166 

TSIIJI-HTSIIK) 

MAI  169 

120 

CONTINUE 

MAI  170 

K»I^JDADJ 

MAI  171 

00  DO  l-l,NCAL 

MAI  172 

K-KMDAOJ 

MAI  171 

ll«NPTS*KM 

MAI  174 

IF  (I1.LT.2)  11-2 

MAI  179 

Txtn-u 

MAI  176 

TVll l-COEFI  1 1 

MAI  177 

DO 

CONTINUE 

MAI  178 

CALL  LSQAHE  (NCAL,TX,TY, A,B) 

MAI  179 

CO  TO  DO 

MAI  180 

C 

MAI  181 

140 

CONTINUE 

MAI  182 

Vl-COEFIIDRAD 

MAI  181 

Y2-C0EFINREC0S )*RAD 

MAI  184 

Xl-l.o 

MAI  189 

X2-NAECR0 

MAI  186 

A-  (Y2-YD/I X2-XI ) 

MAI  187 

B-Y1”A*X1 

MAI  188 

DO 

WRITE  16,9901 

MAI  189 

WHITE  16,960) 

_ _ , 

MAI  190 

C9ML-0. 01*12. »RE 

MAI  191 

00  200  l-l,NRECRO 

MAI  192 

21-1 

MAI  19) 

COEFI 1 I-A6Z 1 

MAI  194 

IF  ICOEFIIII  160,170,110 

MAI  |99 

DO 

IF  (COEFI l).GT.-CSMLI  COEFI  D  —  CSHL 

MAI  196 

GO  TO  190 

MAI  19/ 

C 

Mai  196 

170 

COEFI  II—  CSNL 

MAI  199 

CO  TO  190 

MAI  200 

C 

MAI  201 

100 

IF  ICOEFIll.LT.CSNL)  COEFIII-CSNL 

MAI  202 

190 

WRITE  16,600)  1 ,COEFI 1) 

MAI  201 

COEFI | l-COEFI 1 )*160./1.14199 

MAI  204 

200 

CONTINUE 

MAI  209 

C 

MAI  206 

C 

CALCULATE  CORRECTIONS  TO  NOZZLE  WALL  ANCLES 

MAI  207 

C 

MAI  206 

210 

ANAX2-9.6RAD 

MAI  209 

ANAX-9.6RA0 

o 

MAI  210 

00  220  l-|,NRECRO 

MAI  211 

TStl)—EO(l) /COEFII) 

MAI  212 

IF  IABSITSII  D.LT.AMAX)  CO  TO  220 

MAI  21) 

ANAX-ABSITSI  III 

MAI  214 

220 

CONTINUE 

MAI  219 

WF-WE |GHT*AMAX2/AMAX 

MAI  216 

00  210  l-l,NRECRO 

MAI  217 

HTSID-HTSII  )»TSm*WF*H0./3. 14159 

MAI  218 

C 

MAI  219 

210 

CONTINUE 

MAI  220 

C 

MAI  221 

c 

CALCULATE  NEW  WALL  FOINTS 

MAI  222 

* 


TN-(90.«THOLD)*AAO 

XC»XHOLO-AHOD*COSITN» 

VC-RM010-RH0D*S  INI  TN  I 

tsui-tholo 

XStll-XHOlD 

RSIll-ftHOLO 

TN- 1 90. ♦HTSI 1)>«9AD 

XSTAR-XC+9H0D6C0SI TN ) 

RSTAR-YC»ftHUO*SIN( TN) 

OX-XSTAA-HXSIl) 

OU  260  1-2.200 
T  S ( I ) -TS« 1-ll-DELTAT 
TN- (90.+TSI I  I )*RAO 

xsm  »«hod-cos<  tni»xc 

AS  1 1 1 -VC*RH00*S INI  IN ) 

IH«1 

if  irsiii.LE.Hrsm)  co  to  2so 

CONTINUE 

CONTINUE 

«F  (IH.EQ.2I  CO  TO  270 
fti*RTS»lH«NAECAO-l 
NPISN- IH-l 

tsiii-htsii) 

XSIII-XSTAR 
ASII I ■ AST  AA 
CO  TO  300 

CONTINUE 

IF  (TS(I).LE.HISI  1 1.  AMO.  ITEA.6T  SO  TO  290 
IF  ITSIII.LE.HTSI  1)1  CO  TO  2*0 

GU  TO  260 

NIWPTS'NAECRO 
IN- 1 

NP  TSN* |H- I 
OX-O.O 
CO  TO  300 

WRITE  16.5101 
CO  TO  390 

CONTINUE 

OU  310  I-2.NAECA0 
K-NPTSNH 
TSIKI-HTSI I ) 

XSIKl-HXSfl I ♦OX 
Tl-HTSII I 63. 16 159/ ISO. 

T2-HTSII- II *3.16159/ 190. 
Ttt'(TAN(Tl)*TAN(TZ))/2. 
HASIl)>ftStK-l)FlXS(KI*XS<K-l)>»TO 
AS  IK l-HASI 1 1 

IF  (ASIKI.LT. 0.0)  ME SAC" l 

CONTINUE 

CUNTINUE 

IF  ( IF IN.EQ.O)  CO  TO  360 


MAI  223 
MAI  226 
MAI  225 
MAI  226 
MAI  227 
MAI  229 
MAI  229 
MAI  230 
MAI  231 
MAI  232 
MAI  233 
MAI  236 
MAI  235 
MAI  236 
MAI  237 
MAI  239 
MAI  239 
MAI  260 
MAI  261 
MAI  262 
MAI  263 
HA I  266 
MAI  265 
MAI  266 
MAI  267 
MAI  269 
MAI  269 
MAI  250 
MAI  251 
MAI  252 
MAI  253 
MAI  256 
MAI  255 
MAI  256 
MAI  257 
MAI  25H 
MAI  259 
MAI  260 
MAI  261 
MAI  262 
MAI  263 
MAI  266 
MAI  265 
MAI  266 
MAI  267 
MAI  269 
MAI  269 
MAI  270 
MAI  271 
MAI  272 
MAI  273 
MAI  276 
MAI  275 
MAI  276 
MAI  277 
MAI  279 


iri’i 


c 

330 

C 

3*0 

350 


360 


C 

♦TO 

380 


C 

c 

390 

*00 


*10 

*20 


*30 


**U 

*50 

*60 


IF  ( IF IN.EC. l.ANO.NEWS.NE.NSAVE )  GO  TU  330 
IF  ItFlN.EC.l)  WHITE  ( 6(620) 

GO  TO  460 

NT  IP*  1 

GO  TU  t<0 

WRITE  (6,6101  ITEM 
WRITE  (6,6301 
WRITE  (6,560) 

CO  360  I* 1«NTWPTS 
xi)*xs<  n*Fcnr 
ro-ksi i i*Fcor 
WRITE  (6,550)  X0,M0,TS(1) 

CONTINUE 

IF  (IFIN.EC.l)  CO  TO  380 
IF  (MESAC.EO.il  GO  TO  37C 
ISCll* ISC  II  +  I 
IF  (ISCIL.CC.*)  ISCIL-0 
ITEM* I  TCK* 1 

IF  I IOcMIV.cO.NOERMX )  1DER1V-0 
IOCKIV*ir.FMlV«l 
IF  (ITIM.CE.25)  NWM I TE *  1 
N2*0 

NPTSS*\TWHTS 
NMCA02* I 
NRECOS'NKFCRt’ 

GU  10  60 

NMIIE  (6,660) 

CONTINUE 

XISP-TUMUSI/FLRT 
WRITE  (6,5201  IMRUST 
WKITt  (6,5101  FLMI 
WRITE  (6,6*0)  XISP 
PA«MA/l**.0 
WKITt  (6, *A0  )  MO, PA 
GO  TO  10 


•If  H.O) 

n  )>•  .o ) 


MAI 
MAI 
MAI 
MAI 
MAI 
MAI 
MAI 
MAI 
MAI 
M.tl 
MAI 
MAI 
MAI 
*A| 
MAI 
MAI 
MAI 
MAI 
MAI 
MAI 
MAI 
MAI 
MAI 
MAI 
MAI 
MAI 
MAI 
MAI 
MAI 
MAI 
MAI 
MAI 
MAI 
MAI 
MAI 
MAI 
MAI 
MAI 
MAI 
MAI 
MAI 
U.  ),?XMAI 
10. 3,?MAl 
MAI 
5MFTA  MAI 
MAI 
,?X,8MMAI 
, HHNhKMA I 
,  GtIUP  I  MAI 
MA| 
M.*,2XMAI 

.fm.mai 

MAI 
PSIAIPAI 
MAI 
MAI 


279 

280 
281 
28? 
2m  3 
28* 
286 
286 

2  87 
288 

289 

290 

291 
29? 
293 
29* 

295 

296 

297 

298 

299 

300 

301 
30? 
303 
30* 
306 
306 
30  7 

308 

309 

310 

311 
31? 
313 
31* 
316 

316 

317 

318 

319 

320 

321 
32? 
323 
32* 
3?6 
326 
3?7 

328 

329 

3  30 
331 
33? 
333 
33* 


*T0  FORMAT  (1*19)  MAI  m 

AIO  FORMAT  (9FB.0)  MAI  114 

*90  FORMAT  (1FI0.0I  MAI  SIT 

900  FORMAT  (9F10.0)  MAI  110 

910  FORMAT  I  IHOt 19X,*9HM ALL  ANGLE  LARGER  THAN  SELECTED  UPSTREAM  GEOMETMA!  119 

l**>  MAI  1*0 

920  FORMAT  1 IHOt *4X,9HTHRUST  ■  (FI9.9«*H  LBF )  MAI  1*1 

910  FORMAT  I  1H0,  *6K ,  17HMASS  FLOM  RATE  •  ,F19.9,BH  DM/SEC)  MAI  1*2 

9*0  FORMAT  I 1H0,*4X, 4H1SP  ■  .FI0.9.12H  LBF-SEC/LBM)  MAI  1*1 

990  FORMAT  (*4X,2F10.9,F19.9)  MAI  }** 

940  FORMAT  I1H0)  MAI  1*9 

910  FORMAT  I 1N1.90X, 30HCALCULATED  PARTIAL  OEM VATI V: $//*lX,9HPO|NTv7X,*AI  1*4 

14H0THETA, 10X«9H0E/0T I  MAI  1*7 

9B0  FORMAT  (IN  ,*BX, I3,2F19.9)  MAI  !*B 

990  FORMAT  ( 1H1, 90K, 28HADJUSTED  PARTIAL  DERIVATIVE$F/9*Xt9HP0INT«10X(9MAI  1*9 

1M0E/0T )  MAI  190 

400  FORMAT  1IH  ,9*X, U,2X,F19.9)  MAI  191 

410  FORMAT  I 1M1( *9X , 1CHNEM  MALL  COMPUTED, 5X, 12HITERATI0N  •  ,12)  MAI  192 

420  FORMAT  f INI, 97X, l*Hf INAL  SOLUTION)  MAI  191 

410  FORMAT  1 1H0* 91 X , 2HXS,9X,2HRS«BX ,9NTHETA/90X,*H(I  N) , BX,*H( IN) ,BX,9HMAI  19* 

HOEGREES) )  MAI  199 

4*0  FORMAT  (12A4I  MAI  194 

490  FORMAT  1 1H0, 91X, 12A4 )  MAI  197 

440  FORMAT  I lHO, *1X, 14HPLUG  SURFACE  HAS  NEGATIVE  V  VALUES)  MAI  19B 

ENO  MAI  199- 


V 


170 


IIBFTC  LANG 

SUBROUTINE  LANGK1  (N, 91, NX, LAMA, O?  T  I3N  I 
CUPMON  / HI/  PA*  PO, TO, RHOO, G,R, GO 

COP  HUN  /BA/  HU,kE,nO,fcTA,MEt«MDD,OElTAI,AA,AB,NCNTtTME  TAC 

COHHUN  / HI/  KEG 

COPHUN  /B6/  NL(IC 

CUPHON  /07/  EKKUK 

COPHUN  /BA/  N4KITE 

C  OH  HON  /HU/  CF1,CF2,CF1,CF  l,FL»T,  TH*UST,FLRtC 


NLOC(ll),  ERIUR  ( BO) 


LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 


REAL  LAMA, POT 
01  HENS  ION  KfcG( 1271, 7), 

INTEGER  OPTION 
Jl»NL(lf.(N)»N 
J2-NL0CIN-1)  *N-l 

CALL  SKIN  ( KEGI J 1,  A)  ,KEG(  Jl, 1), CFI ,  TAU,TAUR0, TA  UR, TAURHO, TAUVOt TAULAN 
IPOtRf  AUDI )  LAN 

CALL  HASE  HtEG<Jl,l),REGUl,2),REr.(Jl,*),REGtJ!,l),Pt,PP‘tlPV,FPH|PLAN 
IX, AA, AB)  LAN 

FUNCT- 1 •♦(G-l* )  *REG( Jl,  l)*«2/2,  LAN 

TE  JA-  T  O/FUNCT  LAN 

PJA<iPO/FJNCrA«IG/(G-l.n  LAN 

OVDX-  T  AMI REG(J1«S) )  LAN 

RMOA-RHUO/FUNCT •  •( l./( G-l* ) )  LAN 

U1A-R£G(J1«A )*C0S(R£G(  Jl,l) I  LAN 

CALL  REST  I  REGIJ  lt  1 1 , H, HP,  hR,HRD,OOX  I  LAN 

LANA-  (KEGI  J1,2)*TA'J«P1A*REG(  Jl,2)»0V0X-0VDX«PPHIPV»PPHIPXt/f>H|  LAN 

UU-U1A  LAN 

IFINX.Ktf.l.AND.UPHUN.NE.OI  WRITE  (*,1201  LANA  LAN 

REG! J l , / I > I REG( Jl,2)*t T AU-DVDX* TAURO I ♦LANA* I H-nV0X«HR0l ♦PPHl PXI •GOLAN 
1/ 1  •KEG « Jl  ,2 1  *RllOA*tJ  lA’DVOX  I  LAN 

AL7U-RFGIJI,  71  LAN 

REG(Jl,b)-«rt£G( Jl,2)*AH0A*REGIJl,*)tSlN<REGIJl»S)l>REGI J1,2)»U1A»(LAN 
1TAUVI)/ REG(  il  ,  A)  -KHOA+T  AUP0~RHQA*TAUlM9/(  G*GO*R*  TE  SA )  I  *LAMA*RHUA*U1LAN 


2AAIIP 
Cs-0.0 
CFI-3.0 
JO-N-l 

IF  (9X.EQ.il  JQ*N*l-Nl 

JA-NLUCINXN 

00  1J  1-1, JO 

Jl-N-I 

ji-nloci jt*i  i  ♦  j  r  ♦  i 

J2-NL0C( JT  > ♦ JT 
OX-RCti( J2, 1 1 -Kf  G( Jl, 1) 

OV-REGl J2,?)-REG( Jl,  2} 

0V-KCG(J7,AI*SINIREGU2,1I)-REG(J1,A)*SINIREG(J1,1I) 

OVOX-DV/OX 

MP1-HP 

MR1-HR 

HRDl-HRO 

TAU1-TAU 

TAUR01-TAUR0 

TAURl-TAJR 

TAUKtll-T  AUKHU 

TAUVUl -T AUVO 


LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 


1 

2 
1 
A 
1 
* 
7 
• 
9 

10 

11 

12 

11 

1A 

11 

1* 

17 

It 

19 

20 
21 
22 
21 
2A 
21 
21 
27 
2t 
29 
10 
11 
12 
11 
1A 
11 
1* 
II 
1H 
19 
AO 
Al 
A2 
Al 
AA 
Al 
A* 
Al 
At 
A9 
10 

11 

12 
11 
1A 
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10 


?o 

10 


r. 

c 


TAIIPUI  <  r  All  Mil 
*1*11X1  *1  AtlllX 

ilfCf  •****•  ni»*o  ,n 

CAtt  KfST  (HI  Cl  J2.  I  l(H|  HP,  M6,H*  0,00X1 

Vkl*  I  HCG(Jl,?)4Hf  GU?.  ?))//. 
m»  Jl,  l)«KfC( J?, 1) )/?. 

Vt  I*  I  K<V.(.)1  ,A)«4fG(  J2,6|  I/?. 

msr.i  •  i . ♦ i o- 1 . » •rn  ♦•?/?. 

*h(j|  I  *  MitliO/t  UNCI  ••(  i./tr.-i.n 

ft  I  I  •  f n/f  UNCI 

ft  I* pn/tuNCi  r,- 1. 1 1 

rvuxi  «  1 1  AN  ( HI  t;<  Jt,6|  Ml  AMlHEGt  J2,6»  1 1/2. 

AS  Of  I  t  I 

Mfl  1  -  |MI»|  ♦MM)/?. 

MMrt«  I  MM)  • MK  |/?. 

Hunt  i *  ihpo-iiri>i  j/nx 
f  AUI  I  •  If  A'.ll*  VAJI/r. 
fAUAt  It  IT AHM|t|  AtlfU/2. 

I  Atlllf  I'll  AlfMIU  t|  AUMI))/?. 

I  AU/M'll  AH/  III  t  I  AUVII )/  ?, 
f  AUPf  I  «  IT  AUl'PI  »  T  AUPI))//. 
fAUMf  |  *  (  f  AllMItO*!  AUHHI)/?. 

•  1  AXf  I  ■(Ml  AJXl*«|  AllOX)/?. 

Ql«  IMPFI  •OVOX-I  HHF  1-HROFl  I  +G0/(  A  HIE  l*UE  1 1 IHAN6/VF 1 
CrUAOM.r  1*1  AUAf  1  -AT  AXE |  )*G0/( V£  If*  HUE  l*UE  !  I 

Is  «  g*  A'ci  F  1  *,Wn*  ' 1 V  F 1  •*HC,C  1  »  “  f  I  fDVnjt-  ?  AAW€  1#0  VOX  /A  SOE 1 1 

riM.,TrJ?r?iJf  )>-*««  Jl,6)*C0S(*EG(Jl,5m/0X 

ce  i «r.r  i  •  i pi  i  •uroxi*f  ajei  )«ve i»nx 

U'lii/ruNcr 

riiNCf*  i.MG-umctj?,  u**?/2« 

*Mo»AMMO/riiNC»**i  i./tr.-i.t  i 
AVg>r;*r.o*A*i  r 
Aif?ox.uimf -gs 

»f  '.l  i?  •  / 1 » Mt  r.i  j  i ,  n  ♦  ai  K?cx*nx 


?*min*nrr,i  j?;  a  i  •cos  t  nrr.i  j  >,  a  i  i*mp 
CUNI  I  Mil' 

ll  (IIPIKIN.I  g.ni  GO  Hi  10 
II  INI.IC.il  Gil  M)  ao 
WNIII  IN, |*0> 

nil  ,'1  hM 

it’Ninr.ti  it i 

*kiii  in.isdi  ji.nrr.t  ji,ai,«fgi  ji,  ?i 

r.uNi  i  Mir 

It  Hlfl  fCN.Nf  .01  Min  (6,1601  TtM'JSI  * 

II  •HIM  IDN.ro. 0|  GO  TO  too 


fUCJlATC  mr  l  AC.HAMGI  A*  HUl  !  tPl  If  •  S  |N  * 


LAN 

55 

LAN 

56 

f  AULAN 

57 

LAN 

58 

LAN 

59 

LAN 

60 

LAN 

61 

LAN 

62 

LAN 

6) 

LA\ 

66 

LAN 

65 

LAN 

66 

LAN 

61 

LAN 

68 

LAN 

69 

LAN 

TO 

LAN 

71 

LAN 

ft 

LAN 

n 

LAN 

T6 

LAN 

?5 

LAN 

76 

LAN 

ft 

LAN 

78 

LAN 

79 

LAN 

80 

LAN 

81 

LAN 

82 

LAN 

8) 

LAN 

86 

LAN 

86 

LAN 

86 

LAN 

87 

LAN 

88 

LAN 

89 

LAN 

90 

LAN 

91 

LAN 

9? 

LAN 

91 

LAN 

96 

j?lan 

95 

N6LAN 

96 

LAN 

97 

LAN 

98 

LAN 

99 

LAN 

too 

LAN 

101 

LAN 

102 

LAN 

101 

LAN 

106 

LAN 

106 

LAN 

106 

LAN 

107 

LAN 

108 

LAN 

109 

LAN 

110 
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I 


tv 


:  it4*  *  * 


-  n*.i 


i  ^  a 


_ - 


« 


VO 

00 


10 


c 

«0 


00 

too 

c 

c 

c 

no 

120 

110 


I 


>1)  MRlTf  <6*  110) 


mritc 

wmr 


<6,  iroi 

16# 130) 


l(M,J3ftt*Ei;U#6l,*EUI  ,7) 


rfKlft  16*170)  l,l,OGUOM,<<|.4fG(  J0lt,7l 


If  nwKITF.Mt 
IUH«1 
JUO*  I 

If  (MMKlII  .NC.O) 

If  (WRITE. NT  .3) 
ni)  63  I  NI  t  N 
I t«l -1 
12*1*1 
IV*I*1-  II 
JUIUMUJC1  11*1 
if  iNMHirr.^r. j* 
no  63  K- i # is 

Nl«l-N 

R2*  l?-f 

Jl>NiUni)«N? 

J2*Niorun»Mi 

Jl-Jl-l 

EUMRCGI  Jl#  IHHFGIJl#  ID/ 2. 
f 2 !■ I KFGI J2# iltKfGI  Jl# 1)1/2. 

VU«tKrGUl#?t»HEGI  Jl,  2D/2. 

V21*(KJG(  J2.2MKCGI  Jl,2l)/2. 

RMOU-RMUO/I  1.  #|G-|.  )*Ell**?/2.  )••(  I./IG-I.)) 

0H021* KMlK)/ 1  I.4IG-1.  l*E?l»*2/2.  )♦•  I  1./1G-  l.  )  ) 
f  1«V1  )*(U<011«SUKr<Ell**2-l.) 

OEOI J1#7I* (KfGf J1,6)-KEG( J?#6)**EGt Jl# ?)*f  UNFSIJ2, 7) *F 2) / IF 1»F2 ) 
RfcG<JS.6)-RfGUl,6|-Fl«|REGU1.7>-KCGUt.?n 

JOft«M?-| 

if  riMKirr.rir.o)  imitt  i6.iroi  i.jda.regi ji.oi.kegi ji,ii 

If  II.LT.N)  GO  III  so 
►F  «N*1-M 

RMOHm.-O/  1 1 .  H(i-i.l»KEGlJl.))M2/7,)M(t./|r,.  1.  )  I 

FRM0K1  Pf  )  -  Ml  Gt  J  1#6 t-Kf  Gl  Jl#  7I*MFGI  J  1#  2  I*HHII*  SOI  II  HE  GUI  .*!••?  -l.l 
C  (Ml  1.01  if 

If  OWKIIE.NL.  J|  KKlft  16#  1 10 1 
r.uNi  i  nme 

II  INI  .NI  .2)  Gtl  TO  70 

NMO-HHi*)/  1 1.  ♦IG-I.  |*Kf  Gl  J  )»  1)662/2.  )••  I  l./IG- 1.  1 1 

FNMOKI I  )*KEl#l  JI#6)-KEGI  J  )»  7  l*HF Gl  I  1#  2  IMHO*  SO*l(Rr~»t  Jl#  U**2-|.  | 

CUM  I  Nil t 

IF  MX.Nf.ll  G)  TO  MO 
GU  III  100 


NNIIE  <6#1M3) 
CO  11  1-1, N 
NNIIE  16,100) 
CONI  I  NUE 
CONTINUE 
Nf TURN 


I  #  LRKOKt  I) 


FORMAT  I  IHl  #  A6X  •  1H|# AX#  1HJ,SX#  7HL  AMOOA  1,  AX*  7HLANNIJA2/1HOI 
FORMAT  1 1  Ml # SOX , 7HL ANA  •  #F1?.S) 

F  UK MAI  1 1 MO) 


LAN 

LAN 

IAN 

LAN 

L/lN 

LAN 

LAN 

LAN 

IAN 

LAN 

LAN 

LAN 

IAN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

IAN 

LAN 

LAN 

IAN 

I  AN 

I  AN 

IAN 

I  AN 

IAN 

LAN 

I  AN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

LAN 

IAN 


111 

11? 

111 
US 
US 
116 
111 
114 

m 

m 

m 

i  ?? 

m 

l?S 

i?s 
126 
i?i 
I  ?  N 
124 
113 
111 

112 
111 
US 
US 
116 
111 
Urt 
111 
l  A3 
1 A I 
1  A? 

I A  I 
IAA 
IAS 
IAS 
l  A  I 
1AM 
IAJ 

150 
1S| 
IS? 

151 

HA 

155 

156 

isr 

ISM 
IS* 
163 
161 
16? 
IS1 
ISA 
1 6*> 
ISb 


I 


140  FORMAT  I  IH0,48X,  UHLAGRANGE  MULTIPLIERS  ALONG  WUL//1H0»MX»5HP0INLAN  167 


lT,7X,/HLAM0DAl,bX, 7HLAM60A2)  LAN  16S 

ISO  FORMAT  (SOX, 14 t 4X, F 10. 2,4X ,F 10. 2)  LAN  169 

160  FORMAT  ( IMO, 46X , 9HTHRUST  >  ,F1S.S,4H  L8f )  LAN  170 

170  FURMAT  (43X, 2IS,FI0.2,4X,F 10.2)  LAN  171 

IDO  FORMAT  1  1HI,  S0X.21HEM0A  ALONG  EXIT  CHAR//53X,S'tPOINT,BX,SHERROR//LAN  172 

II  LAN  173 

190  FORMAT  (SAX, 1 3, 3X,F 12.51  LAN  176 

£NO  LAN  173 


none  staku 

SUGMIIUI  IM-  sum  IF  l,N2tPNO,J,NPTSStOELTPP,XLEN; ,VLASft  riASII 
BLAL  H,KO,KttK2fK3»MLtMltM2(N3vMA,MA,LiNB»KK 


10 


20 


INICGC. 
COMMON 
CUPP3N 
CUPMUH 
COB HUN 
COB HON 
COHHON 
COHMON 
COBMUN 
ClPkMSION 
ItTSI  1 2 *>  >  * 


:  OPfl.UP! 2.UPT3 
/P-2/  XL » ML  *NL  t VL  »  IL 
/H3/  HA,PU,rU,RHUOtC.R.CO 

/ISA/  MUt ME* UOtETAf RrtEfMHOOt OElTAT  •  AAy AByYCNT  » THE  TAC 
/PB/  r.WiMTE 
/It4*/  i<AD»  FOOT 

/811/  CFl»CF2iCF3fCFI»FLftT» THRUST tFLRTC 


/H12/  NMfe AOl »NREA02 1 0PT1 tOPT2*OPT3 
/H13/  XS,MS,TS 

XU/51,  ML  1 75  It  HL175I,  VLI75I,  TLI75I,  XSU25I, 
A9I4.4I 


WHITE  1 6y  49(.  | 

THETAC- THE T AC*KAD 
PN«0 
CF  J«0 iU 
FLMT«0.(I 

IF  (NltrAO?.f  g.ul  C(i  10  140 
AS-SQR1 ( I 2.0*w*GO*K*TO )/(G+ 1*0) ) 

MX-KKt/MI 
FPS-1  •(•/SUM I  (KX  I 
Fl-IG-1.0)/ !(,♦!. 0) 

BN-ltll*  I.1A159/1M0.O 
C*  AL“Hfl*COS  I  I.H  I 
P«HU*S  lNlBll)/(0*fcPS) 

XU«HU»S?NIBK) 

P1*S0RT(( l.U-FI )*(0.5-M»»2) ) 

BU-I  l.O-M  |*H/(  4.0*611-1  I.U-F  I  )»H*M*N/ <6.0*6 11-1. 0/6.0 
K0«M*fc  I  A/2.-IU*ETA/< 1.0-F1 1 

Rl-2. 0*H0*B1/| I.O-FI )-M*60*N*N*H*IC0S<6«  I/SINIB4 ||**2 
R2-2.0*FIA#ni/l 1.0-F 1 )-3.0*ETA*H 

-Ol/ll.O-F  I  l»I.S»N«*2*Bl-3,0*N*2,!itMN*F«i.0*N«MN*IC0$IDR|/SlN(Sfl 

V-0.0 
1-0.0 

Al-t l.o-H*Hl-H**2)*V**2/2.0*l.0*CTA*V 
AIP*|  1.0-M*lll-H**2)*Y  +  2.0*ETA 
«0>K0*K  l*YH  .5*K2*Y**2»K3*Y*Y*V/3.0 
Z-Z^O.*^** 

Ul«Al*IO«BI*/ 

Vl«AO»/*AlP 
UP«U1*I PS**2 

V|>.-H*Y*M»S*<H*I  PSI**2*<V**2-1.0l*CUSIBRI/SIMB«l*Vl*fcPS**3.U 
UY-I  l.utllPUAS 
VV»VP*AS 

vei«su»<tivy**2miy**2I 
TlH-T0-VrL**/*CG-1.0)/l2.0*G*G0*R) 

A ■  SORT  I G*GO*K*lf.M) 

CH-VLL/A 

IF  IFH.LF.Elt  GO  m  20 
20*2 
N-0 

A1>N2«1 


STA 

1 

sr  a 

2 

STA 

3 

STA 

4 

STA 

5 

STA 

* 

STA 

7 

STA 

B 

STA 

9 

STA 

10 

STA 

11 

ISTA 

12 

STA 

13 

STA 

14 

STA 

15 

STA 

U 

STA 

17 

STA 

IB 

STA 

19 

STA 

20 

STA 

21 

STA 

22 

STA 

23 

STA 

24 

STA 

25 

STA 

26 

STA 

27 

STA 

26 

STA 

29 

STA 

30 

STA 

31 

STA 

32 

ISTA 

33 

STA 

34 

STA 

35 

STA 

36 

STA 

37 

SI  A 

3B 

SI  A 

39 

STA 

40 

STA 

41 

STA 

42 

STA 

43 

STA 

44 

STA 

45 

STA 

46 

STA 

47 

SI  A 

411 

STA 

49 

STA 

50 

STA 

51 

STA 

52 

STA 

53 

STA 

54 

175 


N3*N2-1 

D(IV*N) 

Va(DElV*?.)/DElY 
00  90  I-1.N2 
N*NM 
NJ-Nl-l 

Y«lY*QElY-2. I/DELV 
IE  (V)  <.0,40,10 
!-/0*l 1.0-YI 
CO  10  *0 


!>IQ*U.O#Vt 

Al»l i.o>M«ni-N*»2)*v**2/2.o*2.o*ETA*v 
AlP»U.0-M*61-***2)*y»2.0*ETA 
A0*K0«K1*V«0.3*k:#Y**2»K3*V*Y*V/3.0 
Ul*Al»A0«6l*! 

Vl-A0*/*A1P 

VP*HO«Y 

XP«HO*EPS*l 

UP>U1*EPS**2 

VP.-n#y*EP$MM*EPSI**2*IV**2-1.0I*C0SI6AI/SINI6U*V1*EPS**3.< 

TKaAf ANIVP/t  1.0*UPI) 

TllN))>TA»M 

VY»YP*AS 

UV«I1.0»UPI*AS 

VMN3I-SQRTI  VV**2*UV**2I 

XMN3l-XP*COSI6R|-VP*SINI6AI*XO 

XL  IN) ) *D»XP*S1N( 6R)*YP*C0S( 6A  I 

TE-rO-VllN3l**2*IG-l.)/l 2.*G0*R*GI 

A*SUAf I G*GO*R*f E ) 

*L(N3I*VUN3I/A 
IF  IY.r.r.0.01  GO  TO  40 
PHlN-ATANI  l./IEPS*!OII*M 
GO  TO  /O 


PH IN*  3 . 14 159 «AI AN! -1 «/ 1  EPS*! 01 ) *6  A 
continue 

IT  ll.ro. II  GO  to  «0 
T|a|TL(Nll«TLlN3*l)}/2. 

Pill  A*  I  PH  IN*  PHI  01/2. 

Ft l>IHl(N)|«Mi(N1»l) |/2. 

Vf |»IYl (Nll«VLIN1«l))/2. 

FUNLT-I.HG-1.  t*EEl**2/2. 

PC l*P0/FUNCT ••( G/l G-l.  II 
AHOE 1 *HHOO/FUNCT **I1./(G-1.)I 
VEI-IRUN3I4ALIN34III/2. 

OY»AL (N3I-RLIN3+1I 

FLKT*FLAT-| AH0E1*VEI*SINI PHI A-T 1 |*YEl*DV/( SINIPI IAI 1 1 
CF  3«CF  3-1  PEI  »RH0E1*VE  l**2*SIN(PHI4*rTI  l*COS(TII/l  GO*  S  INI  PHI  A I 
•  UY 

PHIO-PHIN 

CONTINUE 

FlAT*FlRT*2.«3.14199 
IF  (0PT3.EQ.0I  GO  TO  110 
IF  I NN.GT .01  GO  TO  100 
IF  IAfiS<FlRTOFLRTI.lT..OOl)  GO  T3  110 


STA 

59 

STA 

56 

STA 

57 

STA 

5B 

STA 

99 

STA 

40 

STA 

41 

STA 

62 

STA 

63 

STA 

44 

STA 

65 

STA 

66 

STA 

67 

STA 

6B 

STA 

69 

STA 

70 

STA 

71 

STA 

72 

STA 

73 

STA 

74 

STA 

75 

STA 

76 

STA 

77 

STA 

7B 

STA 

79 

STA 

BO 

STA 

61 

STA 

62 

STA 

63 

STA 

64 

STA 

65 

STA 

66 

STA 

67 

STA 

66 

STA 

89 

STA 

90 

STA 

91 

STA 

92 

STA 

93 

STA 

94 

STA 

V5 

STA 

96 

STA 

97 

STA 

96 

STA 

99 

STA 

100 

STA 

101 

STA 

102 

STA 

103 

STA 

104 

STA 

105 

STA 

106 

STA 

107 

STA 

106 

STA 

109 

STA 

110 

■ 


l rJrii 


mm 


■ 


PLirs>Hir 

WHITE  (4*440 )  FLAT 

H0-H04F00T 

WAITE  14*470)  HO 

OHQ-H0*0.01 

HO-HO+OHO 

PN-NNM 

60  TO  10 

PNOOT-(FLAT-FLATS)/OHO 
HO-MO— DMO 

OHO-(FLATC-FLATS)/PNOOT 

HO-MO ♦ 0.79*0 MO 

PN-0 

60  TO  10 

WAITE  14*900)  EPS*IO 
WAITE  14*910) 

WAITE  (4*9)0) 

Nl-N2*l 

00  1)0  l-l*N2 

N9-N1-I 

T0-TL(N)I*140./). 14199 
S0*XL(N))»F00T 
AO-AL INS) 'FOOT 

WAITE  14*920)  XD*  AD*NL(N))*VL(N)I*  TO 
CONTINUE 

WAITE  (4*4401  PLAT 
HO -HO* FOOT 
WAITE  14*470)  HO 
WAITE  (4*9)0) 

60  TO  290 

CONTINUE 

IP  (0PT2.EQ.1)  60  TO  170 
WAITE  (4*910) 

WAITE  (4*9)01 

Nl-N2*l 

N-0 

00  140  l-l*N2 

N9-N1-I 

N-N*l 

IP  (I*EQ«1)  60  TO  190 
Tl-(TL(N9)*TL(W)*l))/2* 

PHIA-ATAN((AL(N)U)-AL(N))I/(XL(N)*1)-XLIN)))| 
EE1-(ML(N))*MLIN)*1) )/2. 

VEl*(VL(N))tVL(N)+l) )/2« 

PUNCT-l.+l 6-1*) *14 19*2/2* 

PEl-P0/FUNCT*»<G/<6-l*)) 

AHOE1-AHOO/PUNCT«*(  t •/(  6-1. ) ) 

VEI-IAL(N))*AL(N)*1)  )/2. 

0  V-AL  ( N) )  -At  I N)+ 1 ) 

PLAT-PLAT- I AH0E14VE14S IN (PHI A-T l)*VEl*DV/(S(N(P4tA))) 
CP)«CP)-(PEl*AHOEl*VEl**2*SlN(PHl4-Tl)*COS(Tn/(  GO«SIN(PHtA| 
•OV 

T0-TLIN3)/AA0 


STA  111 
STA  112 
STA  11) 
STA  114 
STA  119 
STA  1U 
STA  117 
STA  110 
STA  11* 
STA  120 
STA  121 
STA  122 
STA  12) 
STA  124 
STA  129 
STA  124 
STA  127 
STA  120 
STA  129 
STA  1)0 
STA  1)1 
STA  1)2 
STA  !)) 
STA  1)4 
STA  1)9 
STA  1)4 
STA  1)7 
STA  1)0 
STA  |)9 
STA  140 
STA  141 
STA  142 
STA  14) 
STA  144 
STA  149 
STA  144 
STA  147 
STA  144 
STA  149 
STA  190 
STA  191 
STA  192 
STA  19) 
STA  194 
STA  199 
STA  194 
STA  19? 
STA  194 
STA  199 
STA  140 
STA  Ul 
STA  142 
STA  14) 

) I4VE1STA  144 
STA  149 
STA  146 


' 


-  'i 


r  E*  V 


*  * 


XO«XL(N3)*FOOT  STA  t|T 

R0>RL(N3)»F00T  STA  Ut 

WRITE  (6.520)  XO.RO.NL(N3).VL(N1).TD  STA  It* 

60  CONTINUE  STA  170 

FLRT«FLRT*2.#3. 16156  STA  171 

WRITE  (6.530)  STA  172 

CO  TO  250  STA  171 

STA  176 

70  CONTINUE  STA  ITS 

60  Tl-BDMAO  STA  176 

X2-0.0  STA  177 

CF3-0.0  STA  176 

**■0  STA  179 

FlRT-0.0  STA  180 

STA  ltl 

Xl>X2*2.'HO'SIN< Tl)  STA  182 

V1>Y?-2.*H0*C0S(U)  STA  183 

If  IT1.E0.0.0)  CO  TO  190  STA  186 

Bk-(V2-Vl)/(X2-Xl)  STA  185 

B2-V1-(Y2-V1)»X1/|X2-X1)  STA  186 

XN-N2-I  STA  187 

0X-IX2-X1I/XN  STA  188 

X-XI-OX  STA  189 

OTHEf A«THETAC/XN  STA  190 

T l«T 1-OTmETA-THE TAC/2.0  STA  191 

GO  TO  200  STA  192 

STA  191 

90  0X-0.0  STA  196 

XN-N2-I  STA  195 

0V-(V2~V1I/XN  STA  196 

V-V1-0Y  STA  197 

OTHEI A*THETAC/XN  STA  198 

Tl«T|-0THETA-THETAC/2.0  STA  199 

00  FMIA»90«0*RA0*T 1  STA  200 

FUNCr-l.«(G-l.)*El»«2/2.  STA  201 

TE-rn/FuNcr  sta  202 

A1«SQRTIG*G0*R*TE)  STA  203 

Vfcl-tl«Al  STA  206 

FE l»FO/FUNCT •  •( G/( G-l»  ) )  STA  209 

RHUE l "RHOO/FUNCI  ••(  l./IG-l*))  STA  206 

00  230  I-1.N2  STA  207 

N-NM  STA  208 

IF  lll.EQ.0.0)  GO  TO  210  STA  209 

X>X*DX  STA  210 

XL  1 1 ) "X  STA  211 

RL(1)>B1»X»B2  STA  212 

GO  TO  220  STA  211 

STA  216 

10  XLIII-X2  .  STA  215 

t«Y»UY  STA  216 

RLIII'V  STA  217 

20  Ft ( 1 1 •£  1  STA  218 

VLl 1 1 • VE l  STA  219 

T1»T1*0TMETA  STA  220 

Ulll-Tl  STA  221 

IF  (I.EQ.ll  GO  TO  230  STA  222 


178 


w 


* 


NH-1 

VC 1*1 til  I )*HL(N3) 1/2. 

0V>*L(|)-*L(N3) 

FL*T>FlRT4(*H0El»VEl4SIN<FHIA-Tl)4VE14DV/<SlNfF'IIAm 
CF3"CF3*I  PE  1+RH0E1*VEI**2+SINI PHIt-TL )*COS(T 1 1 /I  GO* SI  N(  PHI  A) 
l*OV 

CONTINUE 

FlAT-Fl*T*2.*3. 14159 

IE  IOFT3.EQ.O)  GO  TO  120 

IF  (NN.GT.O)  GO  TO  240 

IF  (A0S(FLHTC-FLHT).LT..OOl)  GO  TO  120 

FlHTS'FlHT 

OHO- MO *0.0 I 

HO>HO»OHO 

MN-MNM 

GO  TO  ISO 


FNOOT- 1  FIST- FISTS) /OHO 
HO- HO -OHO 

OHO>(FlATC>FL*TS)/PNOOT 

HO-HO+DHO 

NN«0 

GO  TO  ISO 


CALCULATE  THE  FSANOTL-NEYE*  EXFANS ION  AT  t 


STA  223 
STA  224 
STA  22S 
STA  224 
II4YE1STA  227 
STA  22 S 
STA  229 
STA  230 
STA  231 
STA  232 
STA  233 
STA  234 
STA  23* 
STA  234 
STA  237 
STA  23S 
STA  239 
STA  240 
SIA  241 
STA  242 
STA  243 
STA  244 
STA  24* 
STA  244 
STA  247 


OM-OELTFN 

NS TOP -0 

4-N 

<!•«!♦  1 

e:>nlini 

ti-tlini 

ALFA- ATANI 1.0/SQST  I  £1**2- 1.01 ) 

TCHKS- T 1-ALF  A*0. 00044 
SN2*E 1**2/ 1 1 .♦! G-l . ) *E l**2/2. 1 
SN4-SN2*I l.-G**2)/2.*G 
SNA-SN4/SQHTI 1.0-SN4**2) 

SN4*G-2./SN2 

SNB-SN6/SQHT I 1.0-SN4**2) 

FHl— SGHTI IG»1.0)/IG-I.0))*<ATAN(SNA) 
13.141*9/2.01/2.0 
WHITE  (4,5401 
WHITE  14,5101 
WHITE  (4,530) 

El*El*OH 

SN2*E l**2/l  1 •♦( G-l. ) *E l**2/2. ) 

SN4-SN2*(1.-G**2)/2.*G 

SNA»SN4/SQST(1.0-SN4**2) 

SN4-G-2./SN2 

SN0>SN6/SQHT(1.0-SN4**2) 

FN2»-SQHT(  I  G41.0I/IG-1 .01 )*( ATANt  SNA)' 
13.14159/2. 01/2.0 
0T*PH2-PHl 
Tl-TUOT 
XL  I J)aXl(N) 

SltJ)«tl<N) 


STA  24S 
STA  249 
STA  250 
STA  251 
STA  252 
STA  253 
STA  254 
STA  25* 
STA  2*4 
STA  257 
STA  2SS 
STA  2*9 
STA  240 
STA  241 

3.14159/2.  0)/2.0-f ATAN(SNS)*STA  24? 

STA  243 
STA  244 
STA  26* 
STA  244 
STA  247 
STA  244 
STA  249 
STA  270 
STA  271 
STA  272 

3.14159/2.  0)/2.0-IATANISNI>*STA  273 

STA  274 
STA  275 
STA  274 
STA  277 
STA  270 


uu)«n 

FUNCT-1.0HG-I.0I9E1 ••2/2.0 
PAES-P0/FUNCT9*(G/(G- 1.0)1 
f EA-TO/FUNCT 
SPA-SQATIG*G09MTEA) 

Vlf Jl-Nll J)*SPA 

pnck-phes-pno 

IF  <NSIOP.EO.il  GO  TO  340 
AlFA-ATANI !• 0/SQAT I E 19*2-1.0) ) 
ICHR-  T l -ALFA -.00044 
OTCPNHTCHK-TCHKSI/DN 
IF  (TCHR.GT.0.01  GO  TO  310 
TCHKS-TCHK 

IF  I  ANEW)  330.340.290 
CONTINUE 

TD-UMAO./J.  14159 

xo-xu  j>«foot 

AO-All J)*FOOT 

WAITE  14.920 1  XO.AO.NU J|,VUJM) 
J-JM 

IF  U.GT.7SI  GO  TO  300 

PN1-PN2 

GO  TO  270 


CONTINUE 
TCHK-TCHKS 
NS TOP- | 

T l-Tl-OT 
El-El**  ON 
OWN--ICHK/OTCPN 
0NN-0HM0.49 
El-EI-ONN 

SN2-E 19*2/1 l.HG-1 . )*E 1992/2. I 
SNA-SN2*!  l.-G9*2)/2.*C 
SNA-SN4/SQ9TI1.0-SN49*2) 

SN4-G-2./SN2 

SNB-SN6/ SOAT 1 1 . 0-SN4**2 ) 

PN2--&QAT  I IGM. 0)/fG-1.0)  ) 9| ATANISNA )- 3. 19199/2,  0)/2.0-<ATAN(SN»H 
13.14199/2.01/2.0 
0T-PN2-PM1 
Tl-Tl-DT 

ALFA-ATANI 1 .0/SQAT I E 19*2- 1 .01 1 
TCHR-T l-ALF A+.00044 

IF  I  TCHft • GT. -0. 00017. ANU.TCHK.L T.0.0)  GO  TO  290 

Of CPA- I TCHK- TCHKS) /OMN 

TCHKS-fCHK 

PA1-FA2 

GU  TU  320 


STA 

2TB 

STA 

210 

STA 

211 

STA 

292 

STA 

213 

STA 

294 

STA 

209 

STA 

219 

STA 

2B7 

STA 

211 

STA 

219 

STA 

290 

STA 

291 

STA 

292 

STA 

293 

STA 

294 

STA 

299 

STA 

294 

STA 

297 

STA 

299 

STA 

299 

STA 

300 

STA 

301 

STA 

302 

STA 

303 

STA 

304 

STA 

309 

STA 

304 

STA 

307 

STA 

309 

STA 

309 

STA 

310 

STA 

311 

STA 

312 

STA 

313 

STA 

314 

STA 

319 

STA 

314 

STA 

317 

STA 

319 

STA 

319 

320 

STA 

321 

STA 

322 

STA 

323 

STA 

324 

STA 

329 

STA 

324 

STA 

327 

STA 

329 

STA 

329 

STA 

330 

STA 

331 

STA 

332 

STA 

333 

STA 

334 

I  I 


E1-E1-0N 

Cl«SQNTt2.0»nPO/PNO>4»f  <C-1.0)/G>-1.0)/fC-1.0)| 
co  ro  2to 
c 

CONTINUE 

TU-T1M00./1.14199 
XO-XLt J)*FOOT 
iO-iLlJMFOOT 

M«irc  (*,9201  XD,AD»Nl< J) ,91 ( J)  ,70 
PFINAL-PO/(1.0HG-1.0)«Et»*2/2.0)*»<G/tG-1.0>  > 

Ff  INAL* FF INAL/ 144*0 
UNITE  14,4*0)  FFINAL 

NNIIE  OUT  TNE  FINS?  GUESS  OF  THE  OFTINUM  SUN FACE 

IF  (NNEAOI.EQ.O)  GO  TO  440 
THOLO-TLI I l/NAO 
XH0L0-XLI1) 

NHOLO-NLI!) 

TN«(40.4THOLO)4NAO 
XC»XHOLO-NHOO*COSt TN I 
VC*NHOLO-NHOO«SINI TNI 
TSm-THOLO 
XSUt-XHOLO 
NSID-RHOLO 
00  990  l-2,NCNT 
TSI l)-T$( |-I l-OELTAT 
TN«t90.4TSII))*NA0 
XS II) «NH004C0SI TN I 4XC 
NStl)-VC4NH0D*SIN(TN) 

IH-I 

CONTINUE 
XI-XSIIH) 

Vl-NSIIM) 

Tl-TSI IH)*NAO 
X2-XLCNG9XLIII 
V2-VLAST 
T2«TLAST*NA0 
IF  (TI.6T.T2)  CO  TO  S40 
El— I. 

El-0.0 
E4-0.0 
E2— I. 

AVI I* I I-X1442 
A«||f2l«V|M2 
A9II# 1)«X1 
A4||f 4I-V1 
A«(2fll-X2M2 
A9(2f 2I-V2442 
A9(2tl)«X2 
Atllf 4I-V2 
A9(1,||-2.0#X| 

A9(1,2)-2.0*V1*TAN(T1I 
A9llf 11-laO 


STA  119 
STA  114 
STA  11? 
STA  111 
STA  119 
STA  140 
STA  141 
STA  142 
STA  141 
STA  144 
STA  149 
STA  144 
STA  147 
STA  140 
STA  149 
STA  190 
STA  191 
STA  192 
STA  191 
STA  194 
STA  199 
STA  194 
STA  19? 
STA  190 
STA  199 
STA  16  J 
STA  161 
STA  162 
STA  161 
STA  164 
STA  149 
STA  166 
STA  16? 
STA  160 
STA  169 
STA  170 
STA  171 
STA  172 
STA  171 
STA  174 
STA  179 
STA  176 
STA  17? 
STA  17N 
STA  179 
STA  100 
STA  101 
STA  112 
STA  161 
STA  104 
STA  109 
STA  106 
STA  107 
STA  100 


c 

360 


wo 


AV(4,2l>?.*f2*TANtT2) 

STA 

391 

AVIA, 31-1.0 

STA 

392 

A9IA, A)"TANI T2) 

STA 

393 

CO  TO  3 TO 

STA 

394 

STA 

39$ 

11*91 

STA 

394 

I2«V2 

STA 

397 

f  3-TAMTI) 

STA 

39V 

EA-TANIT2) 

STA 

399 

AS  1 1 , | )»X 1*’ 3* 

STA 

400 

A»|  1,2)>X1**2 

STA 

401 

A9 1 1 , 3 )■!! 

STA 

402 

A9ll,4)’l. 

STA 

403 

A9I2* 1 )«X2**3, 

STA 

404 

A9(2,2)-X2**2 

STA 

40$ 

AVI2.3I-X2 

STA 

406 

AVI2,4)’l. 

STA 

407 

•VI 3, l )«3.*Xl**2 

STA 

401 

A9I 3,2)S2»*XI  ' 

STA 

409 

AVII,3)>|. 

STA 

410 

AVI ),4)»0.0 

STA 

411 

AVIA, | |« )a*X2**2 

STA 

412 

AVI4,2)«2.*X? 

STA 

413 

AV|4,3)«|. 

STA 

414 

AV|A,AI-0.0 

STA 

41$ 

CONTINUE 

STA 

416 

AOlTI*|AVI|,|) • AVI  2, 2 ) *A9I 3, 

3 1 ’AVI  2, 

1 ) *A9I 3,2) 

•A  911 ,3)’A9I3, 

IWA9ISTA 

417 

12. S)*A9tl,2) »-«  AVI  1,3) ’AVI  2, 

2)*A9I  3, 

1 ) ’AVI  2, 3) 

•A  91 3»2)*A9I 1 , 

li’AVISTA 

41# 

2),))*A9I2,1I *A9I 1,2)) 

STA 

419 

ACT T2-IAVI  1, l)’AVI2,2)’A9|3, 

Al’AVI 2, 

1 ) *A9| 3,2) 

•AVI 1 , Al’AVI 3, 

1 )*A9ISTA 

420 

12, A) ’AVI  1,2) 1-1 A9| 1, A) ’AVI  2, 

2 )*A9I 3, 

1 ) ’AVI  2, A  t 

•A VI 3,21’AVI 1 , 

1 I’AVISTA 

421 

2),A)’AV(2,I) *A9| 1,2)) 

STA 

422 

AOtn-IAVIl,  1 )  •  A9<  2, 2) *A9t  4, 

3 ) ♦ AVI  2, 

1)*A9(4,2) 

•A9I1 *3)’A9J4, 

1 ) *AV I  ST  A 

423 

12, 31 ’AVI  1,2) )-l A9| 1,3) ’AVI  2, 

2)’ AVI  A, 

1) ’AVI  2, 3) 

•  A  VI A ,2 1 ’AVI  1 , 

1 I’AVISTA 

424 

2A,3)’A9I2, 1 )*A9I 1,2) ) 

STA 

42$ 

AOfTA<|AVIl,l) ’AVI  2,2) *A9| A* 

A) ’AVI  2, 

1 ) ’AVI  A, 2 ) 

•  A  VI 1 , A 1 ’AVI  A , 

1WA9ISTA 

426 

l?,A)’AVI|,2) )-l AVI  1 , 4) *A9I  2, 

2  )•  A9|  A, 

1 ) ’AVI  2, A I 

•A VIA,2)’A9| 1  , 

1 (’AVISTA 

427 

24,4I’AV|/,1)*A9< 1,2)| 

STA 

428 

AllC  T  $  »  AVI  1,  1  )’A9I2,2)-A9(1,2)’A9(2,1) 

STA 

429 

AOk  T  •  1 AUF  T  1  •  AOE  T  A )  - 1  A0ET2*A0ET3  ) 

STA 

430 

Al)fc  T  ■  Alik  T  /  AOE  T3 

STA 

431 

Al)k  IS*  ADI  T 

STA 

432 

mi  1H0  l» 1, A 

STA 

433 

AIS>AV||,|| 

STA 

434 

A?$*AVI2, 1  1 

STA 

43$ 

A  IS*  A9 1  3, |  ) 

STA 

4  36 

AAS«A9IA, 1  ) 

STA 

437 

AVI |,|  )•»  1 

STA 

438 

AVI/,1  I’t/ 

STA 

4  39 

AVI  3,  1  l«f  3 

STA 

440 

AVIA,  l)*kA 

STA 

441 

AOTI  l-IAVI |,  I)«A9<2,2)*A9I3,))«A9I2, 1 )  6A9(  3,  2  )’I91 1 , 3)»  AVI  3, 1  WAV  I  ST  A  442 
12,  IMAM  1,2)  )-l  A9I1,3)«A9I2,2)*AVI  3, 1 ) ’AVI  2, 3)’49I  3 ,2 )’A9| 1 , 1 )♦ A9 ( ST  A  A  A  3 
23,  JWAVI2,  l  I+A9I  1,2) )  STA  AAA 

AOFT  2 • I  AVI  1, I ) *A9I  2,2) *A9I 3,4) ’AVI  2, I )*A9t 3, 21*491 I ,4)’A9 1  3, 1 WAV 1 STA  44$ 
12, 41 *4911,2) I -I A9I 1, A ) *A9| 2, 2 )♦ A9| 3,1) ’AVI 2, 4 )*49| 3 ,2 l*A9| 1 , 1 )’A9 1  ST A  AAfr 


182 


23.4)*A9(2,1)*A9( l« 21  I  STA 

A0ET3* (A9I  I.  1I*A«I2.2)»A9I4.  1)«A9(  2,  1 )  •A9I  4,  2)M9I  I  ,3  )♦  A9(  A ,  1  l*A9  I  STA 
12. 3)*A9I 1.21  )~l A9{  I.  3)*A9( 2i 2)*A9( 4. I 1  +A9( 2,  3)M9(4,2)*A  7  (!,))♦  A9ISTA 
24.31M9I2* I)*A9( 1.2) )  STA 

A0ET4MA9I1. 1)*A9(2.2)*A9(4,4)«A9| 2. I I *A4( 4. 2)#4 91 1 ,4) ♦A9I4, I )»A9(ST A 
12.4|«A9I1,2)  l-t A9ll.4)«A9l2.2)*A9t4.l)»A9(2.4)*l9l4,2)*A9(l.ll«A9(STA 


24.4|»A9l2.l|*A4<|.2t) 

STA 

493 

ADET9* A9( 1.1 )*A9(2»2 )~A9( 1.21 *A 9(2.1) 

STA 

494 

ADET* ( ADETl*ADET4)-| ADET2*ADET3 ) 

STA 

499 

ADET> ADET/ADET9 

STA 

A96 

A9II.5)-ADET/ADETS 

STA 

49? 

A9(t.| I-A1S 

STA 

490 

A9I2. 1 )*A2S 

STA 

499 

A9(3.lt«A3S 

STA 

460 

A9I4.I I-A4S 

STA 

461 

ISO 

CONTINUE 

STA 

462 

IF  ITi.GT.T2)  CO  TO  390 

STA 

463 

N3>(V2-VII/IX2-X1) 

STA 

464 

C3>V|-M3*X1 

STA 

469 

RR—A9I l.9)*A9l 2,91/1 A9(2.9)*M3**2*A9( 1,9)1 

STA 

466 

A«A9I 1 ,9) +RR*M3**2 

STA 

467 

•■•2.tKK*N3 

STA 

460 

C-A9(2,9)«RR 

STA 

469 

0*A9|  3 v9 1 ♦?. *RK *C3*R3 

STA 

4  70 

E*A9(4.9)-2.»RR*C3 

STA 

471 

F«I.*RMC3M2 

STA 

472 

cu  ru  400 

STA 

473 

c 

STA 

4  74 

390 

A-A9II.5) 

STA 

4  79 

8-A9I2.9) 

SI  A 

4  7* 

C«A9| 3.9) 

STA 

477 

0-A9(4.9) 

STA 

470 

400 

CONTINUE 

STA 

479 

CNPTS-NPTSS-NCNT 

STA 

4*0 

0X"(X2~XI l/CNFTS 

STA 

411 

X>X1 

STA 

402 

NNN>NCNT«I 

STA 

483 

00  430  l«NNN,NPTSS 

STA 

484 

x-x*ox  , 

STA 

489 

tf«MX*E 

STA 

486 

W>A*X««2»0»X*F 

STA 

487 

IF  (T1.GT.T2)  GO  TO  410 

STA 

488 

RS II)  •  1  -V -SORT  1 V  •♦2-4.  K'NII  / 1 2  1 

STA 

489 

TS(ll>ATAN((-2.»A»X-BMS(l)-0)/IB»X»2.«C’RSII)*: I) /RAO 

STA 

490 

CO  TO  420 

STA 

491 

C 

STA 

492 

410 

RS(I)*A*X*«3.4B*X**24C*X«0 

STA 

493 

TSIU-ATANI  3.»A#X»*2*2.*B»X»C)/RA3 

STA 

494 

420 

xsm-x 

STA 

499 

430 

CONTINUE 

STA 

496 

440 

xsm«xLiii 

STA 

497 

Asm-Rtm 

STA 

498 

rsm«Tiin/AAD 

STA 

499 

WRITE  16.990 i 

STA 

900 

WRITE  (6,930) 

STA 

901 

WRITE  (6,960) 

STA 

902 

183 


so  i>i#nptss 

Xu»XSI  I  I  •!  DU I 

mo«ksi i )«Frni 

hHlfC  tA*STO|  XU, Ml, TSIII 

CUNT  I  N>'l 

Ml IU4N 


IUkf.W 
IUMMAI 
I  tIKPA  I 
I  IMHA  f 
I U4MA I 
I IIMHA  T 
IHMY»  l  ll< 

?r'*n 

i&*hA T 
T  IMF  A  I 

tukpai 

f U4MA! 

I  OK* A  I 
I  I  UK. MU 
I UrtKAI 

fur 


( I  MO  •  AhX  •  I  fMMASS  HUM  NATL  •  ,F|S.S,AH  IBM/SCC) 

I  I  MU ,  AI.X  ,  SH*HJ  •  ,flS.S#?H  INCH!  SI 
I  iMfl*  4/X  «  'IMP!  iNAl  •  #  F 10 .S#  SH  PSI A  I 
1  I M  l  ,  ah*  •  ?  jmiiATA  iuh  the  STAKT  LINE /// 1 
(SAX, TH  LF»S  •  ,Ff>.),SX,6H  /I)  a  #ff.Sl 

1  I  HO#  S44  ,4l4iACM,22X»4MflUM/)SX»2HXC#llX,2lHC#5X#AMNUHBIH# 

MY#  MiMiAn  .IE/)4X,4HI  IN  I  #t>X  #  AMI  IN  )  #  1  Cl  #*»M  II  PSI  #  7X  ,9H  1 01 
MIX.  II  IO.S,F |S.S#F I2.SI 

I  I  MO  | 

IlHt.A/l#  WMUAIA  1 04  PMANUTl-MCVEM  EXPANSION  AT  El 
(IHI# 4/1 , j*Hf |4ST  GUCSS  IU4  THE  OPTIMUM  SU4FACEI 

llHO#4t>A#?HXS#HX,2H4St9X#SHlHCTA/4SX#4HflNI,«X#4H<lN)#AX 

IA/k,  ?|  10. S, F  IS. SI 


STA 
STA 
STA 
STA 
STA 
STA 
STA 
STA 
STA 
STA 
STA 
STA 
STA 
STA 
STA 
?X#STA 
CKCST  A 
STA 
STA 
STA 
STA 
STA 
tSMSTA 
STA 
STA 


50) 
SOA 
SOS 
SOA 
SOT 
SOA 

509 

510 

511 

512 

51) 
S 1 A 
SIS 
S 1 A 
SIT 
S1A 

5 19 

520 

521 
S  22 

52) 
S2A 
S2S 
S2A 
S2? 
S2A- 


10 


6IBFIC  EXT 

^SUBROUTINE  EXTENO  (NTQT.NDEGRl, NMTSN, I TOT.NWRI T*  .NSAVE, Xf INAL.tTEAEXT 
REAL  ML,MA,MB 

COMMON  /•!/  MA, MO, TO ,RHOO,  G,R, GO  eJJ 

CO ANON  /B2/  XL,RL»ML,VL»TL  iJJ 

COMMON  /BS/  KEG  '*[ 

COMMON  /B6/  NMOINT  “I 

COMMON  /B9/  RAD, FOOT  Itl 

COMMON  /BIO/  XA,VA,MA,VA,TA 

coSS  Z\'  ^"jCf,,CM,K,T,,HMm,fl*,c  §;; 

IF  (NMRITE.NE.OI  WRITE  <6,R0I  III 

00  10  l*l,NTOT 

XAIII-XUII 

vAin-RLm 

maid-mliii  ”1 

VAtlfVLU)  fj! 

TAID-Uin  ”1 

ITOT-NTOT  ”1 

CF2O.0 

CALL  SKIN  (VA( t),MAf 1 1 ,CF I , TAU, TAURO* TAUR , TAURH3 , TAUVO, TAUMO ,RTAUDE XT 
TAU1*TAU 

IF  (NMTSN.EQ.OI  GO  TO  40  !j! 

NJOIN-NMTSNM 

00  30  J-2,NJ0IN  “I 

xsm-xs(j) 

Vb(l)-KS(J)  '*! 

TBtl)>TS(JI»RAD 

ISA^NSTRT, J) *  ll*9Btll*TBHI tNOEGRl, VI ,Ell ,X3A, V3A,E3A, V3A, TEXT 

KBIII-EU  III 

vbiii-vi  *;j 

K0B*0  ”1 

I0B*1 
JOB* J-l 
TO*TB(||/NAO 

XO*XBIl)#FOOT  HI 

R0*VBU)*F00T 

Miimiu&uii"!"  i.t 

V£l*IVA(l)*VBIl))/2.  !?: 

cvi-vBm-vAm  *JI 

^CALL  SKIN  <V8t  1 1, MB!  1)  ,CFI  ,  TAU,  *AURD, TAUR,  TAURH) ,TAUVD,  TAUMO,  P.AUOXE  XT 

TAUEl*ITAUl*TAU)/2.  fj[ 

0V0X*I TAN( TAI I) I ♦TAN  <  TBI II) )/2»  III 

FEt*F0/(l,4<G-U)»EEl»62/2,)»*fG/( G*l.  II  eir 

OX-KBtn-XAl  II 

CF2-CF2-I ME  I •DVDX*TAU£1 > 4VE 1»0X  | J J 


1 

2 

3 

4 

5 
A 
? 
B 
9 

10 

11 

12 

13 

14 

15 

16 
IT 
IB 

19 

20 
21 
22 

23 

24 

25 

26 
2T 
28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 
4? 

48 

49 

50 
St 

52 

53 

54 


TAU1-TAU 

1*0 

Nsrop-iror 

00  20  K»N$IRT,NSTOP 

L»L*l 

CALL  CHARI  I  XAf  K  ) . XB IL  I  .  YAU) .  YBIl  ) , VA IK 1 , VB (L),  TA<  K)  ,TB(U  >1 
IHB(L)  ,T0,G,G0,R,X3A,Y3A,V3A,T3A,E3A,l) 

XB(L»1)-X3A 
YBIL+l I*Y1A 
MB(L«it-E3A 
VB(LM)-V3A 
T0-T3A/RA0 
108-108*1 
X0-X3A*F00T 
R0»Y3A*F00T 

IF  INWRI  rE.NE.O  )  WRITE  16,901  10B, JOB, XO,RD,E 3A, V3A,TD, I 

T8(L*lt«T3A 

KAIL ) -XBI L I 

YAIO-VBIL) 

WAU  l-MBIU 
VA(L>>VG(L) 

TAIL )-T8(l I 
ITOT-L*! 

XA 1 1  TOT  I  -XBI ITOT) 

VA(IT0T)-Y8< 1T0T  ) 

IF  (NWRITE.NE.OI  WRITE  (6,100) 

MAUron-MBI  ITOT  ) 

VA(iron-VB(  ITOT  I 
TA(IT0T)-TB( ITOT) 

CONTINUE 
00  *0  1-l.NTOT 
I  SV>  I 

XCK-XF INAL-XAI 1 ) 

IF  I XCK )  60,60,50 

CONTINUE 

N$UB«ISV*2 

NSAYE-ISVM2-ITER 

IF  (NSAVE.LT  NSUB)  NSAVE-NSUB 

IF  (NSAVE.CT.ITOT)  NSAVE-ITOT 

RETURN 


EXT 

55 

EXT 

56 

EXT 

57 

EXT 

58 

EXT 

59 

•  EXT 

60 

EXT 

61 

EXT 

62 

EXT 

63 

EXT 

64 

EXT 

65 

EXT 

66 

EXT 

67 

EXT 

68 

EXT 

69 

EXT 

70 

EXT 

71 

EXT 

7? 

EXT 

73 

EXT 

74 

EXT 

75 

EXT 

76 

EXT 

77 

EXT 

78 

EXT 

79 

EXT 

00 

EXT 

81 

EXT 

82 

EXT 

83 

EXT 

84 

EXT 

85 

EXT 

86 

EXT 

87 

EXT 

88 

EXT 

89 

EXT 

90 

EXT 

91 

EXT 

92 

EXT 

93 

EXT 

94 

EXT 

95 

EXT 

96 

EXT 

97 

EXT 

98 

6EXT 

99 

IIEXT 

100 

EXT 

101 

EXT 

102 

EXT 

103 

EXT 

104 

,-±.  .....  .>>■  s«  y<*r4  V/-:. 


61 8FIC  LUCA  I 

SUBKUUf IUH  LUCA  1  UfOT.Xl.Vl,  fl.UO.VI.EU, 

ir.ji 

HEAL  HU 

CUPfeON  /HI 3/  XS*rt$,TS 
CUHMUN  /H10/  XA,YA,MA,VA, FA 
CUPMOI4  /H3/  PA.PO,  fO,KMOC#C#K,Cn 
CI*fc'4SIUN  XAI75),  YAI76I,  HA175I,  VAI/9), 
1),  rsil25) 

KP-J-l 

1-0 

X3A»|XI«XS(fcPM/2.0 
CU  10  20 

m 

10  AUlV-I 

X3A-XS(KP)«( X1-XS1KPI I /AO IV 
20  (-!♦! 

CALL  AirKEN  <XA,YA,  |  TO  I , SO, X 3A , YB ) 

V3A-VU 

CALL  AlTKfcN  (XA,HA, IT0T,NU,X3A, YB) 

FiA-YB 

CALL  AlfKFN  | XA , VA , I  TO T « NO , X 3A , Y6 ) 

ViA-YU 

CALL  AirKh'M  1XA,TA,ITUT»A0#X3A,YB) 

7 JA«VB 

A  3A*A  T  AMI l*/ SUM  I  IE  3A**?-l.  I  J 
V  l  i» I  V  I *Y  3A 1/2* 

TI3«IT  l*T3A)/2. 

IF  ll.NE.ll  uu  ro  30 
C3*COSIA3A)/(SlMAlA)*V3A| 

G  3»S  I  *41 1  3A  )  *S  101  A  AI/SINII  3A-A3AI 
A  I 3*A  3 A 
CIJ-U3 
G 1 3*03 

go  ro  40 

>0  A 1 3- 1 A 1+A3A  1/2* 

V 1 3» ( V l*V3A ) /2. 

Cl J-COSI A  III /(S INI A13)*V13) 
G13-S!MT|3I*SINIA13I/S1M  7 13-A 13) 

0  C-fANl ril-Ali) 

r-vi-c*xi 

KP-l 

KX-2 

IF  (XJA.Gr.XA(KXI)  00  FO  70 
IF  1 1 .OF *90 1  00  ro  I AO 
0  XXl-XAIKPI 

V V l-YAIKP ) 

XX2-X3A 
VY2-V3A 
KV-KP* 1 

IF  IXXI.FU.XX2I  00  TO  60 

go  ro  «c 

0  XX  l-XAIKY ) 


X3A  ,V3A,E 3A.V3A, I 3A«(4STMLOC  I 


IOC 

'  2 

LUC 

3 

LUC 

A 

LUC 

6 

LOC 

6 

MSI I2SLUC 

7 

LOC 

8 

LOC 

9 

LOC 

10 

LOC 

11 

LOC 

12 

LOC 

13 

LOC 

1A 

LOC 

15 

LUC 

16 

LOC 

17 

LOC 

18 

LOC 

19 

LOC 

20 

LUC 

7  t 

LOC 

22 

LOC 

23 

LOC 

24 

LUC 

25 

LOC 

26 

LOC 

27 

LUC 

28 

LOC 

79 

LOC 

30 

LOC 

31 

LOC 

37 

LOC 

33 

LOC 

3A 

LOC 

35 

LOC 

36 

LUC 

37 

LOC 

38 

LOC 

39 

LOC 

AO 

LOC 

A 1 

LOC 

A2 

LOC 

A3 

LOC 

AA 

LOC 

A5 

LOC 

A6 

LOC 

A  7 

LOC 

A8 

LUC 

A9 

LOC 

50 

LOC 

51 

LUC 

52 

LUC 

93 

LOC 

5A 

c 

to 


80 


C 

vo 


100 


c 

110 


120 

no 

no 

no 


m«VA(KV| 

cu  ro  to 

to  «o  K(j«j,  i  ror 

KX*KO 
KP*M- I 

**  (X)A.IE.XA(KOI)  CO  TO  50 

CONTINUE 

KP«1 

Co  1(J  VO 


A«|yr2-mi/lxx2-XXl) 

p*yy2-a*xx? 

*  ia*<o-iii/(a-c  i 

n  1X1A.LE.XSI  II  }  GO  TO  10 
V1*V3A«(  T3A-f  l-cn*(y3x-vi  j/yu,/Q|  j 

rfci«ro-vn#?*ip,.|.,/|2#*CAGO#(u 

SPl«SO*U<G*CU*mTEl | 

PlA-Vl/SPl 

A1«ATAM  l./SOKH  EtA**2-l.j| 

IP  1  I .EO. II  GU  ro  100 
X3P*(X3A-X  M/XJ 
V3P*( Y  <A-Vl»/y3 
C l P* I E 1 A-E 1 1 /E  1 
r  3p* 1 3A-r  * 

IP  ( ABSIX  JP| ,i f . .C001. AND • AOS ( Y3PI .LT 
1AN0.ABW.3PI. LI.. 00011  GO  10  110 

V3*Y  3 A 

cm  ia 
13*  T3A 

0(1  III  ’0 


CONT  INIlf 

ru  i2u  ni.nur 

AS  f Kf  ~ | 

»CK*X  3  A  *X A (  I  ) 

.»  (XCK»  130,130,120 

CONI  I I4U1 

CONTINUE 

KE  KJMN 

WK  1  TE  («>,  no  I 

SNIP 

P1MHAI  (lUO,28HroO  MANY  ITtKATIUNS  IN 


• .OOOi, AND. ABSiElPl.LT 


LUCA T I 


LOC  90 
LOC  56 
LOC  57 
LOC  90 
LOC  59 
LOC  60 
LOC  61 
LUC  62 
LOC  63 
LOC  64 
LOC  65 
LOC  66 
LOC  67 
LOC  60 
LOC  69 
LOC  70 
LOC  71 
LOC  72 
LOC  73 
LOC  74 
LOC  75 
LOC  76 
LOC  7  7 
LOC  70 
LOC  79 
..0001. LOC  00 
LOC  01 
LUC  02 
LOC  03 
LUC  04 
LOC  05 
LOC  06 
LOC  07 
LUC  00 
LOC  09 
LUC  90 
LOC  91 
LUC  92 
LOC  9  3 
LOC  94 
LOC  95 
LOC  96 
LOC  9  7 
LOC  90 
LOC  99- 
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MBF7C  FLOW 1 

Jggmum  flon  i  ih,j, hi  on 

COMMON  /02/  XL,ftL«ML,VL,7L 

8  mi  :*j'°-'°.««oo.6.,,co 

COMMON  /0i/  NWftITE 
COMMON  /09/  MO,  FOOT 

ynais.ssiwji  ft"*”  *«»»•  '«»•.  a«»» 

wire  16,1901 

BK17E  16,1601 
NKIfC  (6,170) 

10  NJUMP-0 

•£CI l # l )«XL I  1) 
ftE5(l,2)>RL( 1) 

*£GI1,3)>MLI 1) 

KEG(l,4l>VLf 1) 
ft£G(l,*)»ru  1) 

*O0«O 
tOB>l 
JOB- 1 

ro>nm*ito. o/s. 14159 

-0»XL(ll*F00r 
*0»«L(  l)«F00r 

»  !j:?!f!:21:«#!  SI!?I 

OU  140  I 1»2, J« 1 
IF  (ll.Cr.N)  GO  70  20 
X 1  “XL (ill 
X2*KEG( 1,1) 

Yi-KLIU) 

V2*AEG( 1,2) 
ri«7L(m 
72*REC( 1,5) 

vi-/u  m 

V2BMEG( 1,4) 

£1  "ML  (ID 
E2*KEG( 1, 3) 

GO  TO  JO 

0  Xl-XL(ll) 

X2*BEG(2, 1 ) 

Yl»KL(  ID 
Y2>KEG(2,2) 

El -ML  (ID 
E2*REG(2, 3) 

Vl«VLIil ) 

V2-BEG(2,4) 

U-TUI1) 

T2*MEC(2,5) 

9  XX>BEC(1, 1) 

M>ftEGIl,2) 

EX«BEG( 1, 3) 

VX«'4EC(1,4) 


fl  1 

1 

fli 

2 

fli 

3 

fli 

4 

FLI 

5 

FLI 

6 

fli 

7 

Fli 

• 

fli 

9 

FLI 

10 

fli 

11 

fli 

12 

FI  1 

13 

fli 

14 

FLI 

15 

FLI 

16 

fli 

17 

FLI 

IB 

fli 

19 

fli 

20 

fli 

21 

fli 

22 

FLI 

23 

fli 

24 

fli 

26 

fli 

26 

fli 

27 

Fli 

28 

fli 

29 

fli 

30 

fli 

31 

fli 

32 

fli 

33 

FLI 

34 

fli 

35 

fli 

36 

fli 

37 

fli 

3B 

fli 

39 

fli 

40 

FLI 

41 

FLI 

42 

fli 

43 

fli 

44 

fli 

46 

fli 

46 

FLI 

47 

fli 

46 

Fli 

49 

FLI 

60 

fli 

51 

fli 

52 

fli 

53 

FLI 

54 

TX««EG<l,5l 

H£G(  1*1  )«XL1  1 1)  99 

*ECI It?) -RLI 1 i )  fL\  99 

BfG(l, 3)r>C( , j,  Fit  57 

•  6GI 1,4  I »  VLI  ID  56 

#ECI 1,5I«TL( I 1)  EL}  99 

utEuJ?|#l  m#*Z',rl»V2»vl»v*»n,r2#El,E2fTO,G,JO,R,X3A,r3A,V3A,r3Ftl  61 

niiHfi*0  ft!  M 

“^nm!0  '“•«»•»»•»»».»•«»»»  tt!  JJ 

IF  H2-I1I  90,90,40  JJ-}  88 

CONI | NOE  FLI  69 

KOH  =  0  FLl  70 

juh=i  E*-1  71 

100*1  |  -NJOHP  E*-1  72 

ru*ll  I  111*160.0/).  14169  F|*}  I3 

xo*xi*Foor  PLl  74 

«0*V|*FOOT  fL*  19 

("JuMBoI/lIut**1™  ^4,ll0,  l0J^0P»K0,RD.£I.V|,ro,XO8  ft!  77 

J0U-2  FLl  78 

XO=X 3A*f OQT  EL|  79 

ku-viaafooi  FLI  80 

“  m?!!!;7*M,,rwe  ft!  5! 

IF  (Il.f0.2l  GO  TO  60  FL[  !3 

13*11-1  JJ-}  •* 

DU  60  12-2,13  l4.1  J* 

X2-KEG 1 12,1)  88 

V2-REGI 12,21  JJ 

E2-ftEGU2,»)  „  *\\  88 

V2-KEG ( 12,4)  89 

T2-KEGI12.5I  ly.  9° 

MEG(  I  2, 1 1 -X3A  !J;|  !} 

MtGI  12,2)  -V3A  '*■*  92 

MEGII2,3)*E3A  Vr\  93 

OF 01  I  2 , 4  )  -V  3 A  r.\\  94 

OF  01 1  2  ,*>  I  -T  3A  99 

XI  *X1A  98 

n"r,A  ft  |  9g 

F 1  *f i A  98 

tri-vu  F*-»  99 

ri-iiA  FU  100 

CAU  cum  (X|,X2,V|,T2,VI,V2,ri,T2,CI,C2,  TO,G,jO,H,X3A,V)A,V3A,  Flft }  102 

IA,E3A,I)  . 

joo- i2*i  yr\  J°3 

fO-rjAA|»0. /3.  14159  {'I 

XO-X  3A*F00T  JJJ’ 

H0*Y3A*FU0T  JJ-J  }JJ 

lU,?**!™'**'01  WR,TE  ,6»li0>  103,  JOB,XO,AD,E34  ,V3A,TD,I  ft!  106 

U.IOB.-.J*  ft!  UO 


f  L 1  66 

FL1  69 
f  LI  70 
FLl  71 
FL1  72 
FLl  73 


FLl  77 


FLl  60 
FLl  61 
FLl  62 
FLl  63 
FLl  64 
FLl  *5 
FLl  66 
FLl  67 
FLl  66 
FLl  69 
FLl  90 
FLl  91 
FLl  92 
FLl  93 
FLl  94 
FLl  95 
FLl  96 
FLl  97 


FLl  100 
FLl  101 


o 


w 


c 

40 


c 

c 

70 


•0 


iL(iDti*y}i 

naott'EU 

9LU0*)-83A 

riuo»i«r)i 

R£Gm*i)>x3A  ° 

AE6<ll#2»-r3A 
R£Glfl#3t»E3A 
«£6fll#4»»V3A 
AEG<It,5>-r3A 
GO  ro  130 

XLII08I-K3A 

RLUQ8)«V3A 

*L410B)*E3A 

VL<I08)»V3A 

7LIIOBI*T3A 

MEGI2# 1 t*X3A 

REGI2,2I>V3A 

«£ GI2,3)*E3A 

R£GI2#4)>V3A 

R£G<2#5W3A 

GO  ro  ^30 

00  00  12*3, N 

MEGII2>1»1)*X3A 

R£G(I2>l,2t*V3A 

AEG! 12-1, 3)*£3A 

*£GI I2-l,4)»83A 

REG(I2-l#5)*r3A 

X1»X3A 

U-V3A 

E1*E3A 

V1»V3A 

ri«f3A 

CALL  CHARI  ( X1#R£G( 12# 1)#V1#R£G( 12 #2) #  VI# REG I I2«4),T1,R£G( 
ItHEGI I2#3)#ro#G#GO#R#K3A#V3A«V3A#r3A#£3A#l I 
rD-r}A*l«0. /3.1415V 
XO«X3A*EOOr 
R0-V3A*E00r 

If  INWRirE.NE.OI  WAIVE  (4,1*0)  10*,  12.  X0.AD#E3A,  V3A#  TO.  I 

REGIN,  1I-X3A 

REGIN, 2J-V3A 

AEGIN#  3)*£3A 

REGIN#4)*V3A 

REGIN#5t»r3A 

XLII08I*X3A 

ALII081-V3A 

*LII0*)-E3A 

VL(I0IH3A 

HIIOBI-rSA 

60  ro  130 

tf  ui.cr.Ni  go  ro  loo 
go  ro  no 


ELI  111 
ELI  112 
ELI  113 
ELI  114 
ELI  115 
ELI  114 
ELI  117 
ELI  118 
ELI  119 
ELI  120 
ELI  121 
ELI  122 
ELI  123 
ELI  124 
ELI  125 
ELI  124 
ELI  127 
ELI  128 
ELI  129 
ELI  130 
ELI  131 
ELI  132 
ELI  133 
ELI  134 
ELI  135 
ELI  134 
ELI  137 
ELI  138 
ELI  139 
ELI  140 
ELI  141 
ELI  142 
ELI  143 
ELI  144 
ELI  145 
12,5) #E1EL 1  146 
ELI  147 
ELI  148 
ELI  149 
ELI  150 
ELI  151 
ELI  152 
ELI  153 
ELI  154 
ELI  155 
ELI  154 
ELI  157 
ELI  15H 
ELI  159 
ELI  140 
ELI  141 
ELI  142 
ELI  143 
ELI  144 
ELI  145 
ELI  144 


191 


r.f.y.  •iiA|*,Vt  4  t 


J 


If  INWKITE.NE.O)  WRITE  16*190) 
N  JUMP ■ ft JUMP* 1 
CU  ro  140 

If  INWKITE.NE.O)  WRITE  16*190) 

NJUMP»NJUMP*1 

JU8*i 

K08-0 

IU8=1 1-NJUWP 

ID^fLl 111*180.0/3.14159 

xo«xi*foot 

Ru=vi*foor 

If  INWKITE.NE.O)  WRITE  16*160) 
X3A*«EG<2, 1) 

Y  3 A-REGI 2,2) 

E  3A  =  K£G( 2,  3) 

V3A=*EGI2,4) 

T  3A*AEG(2,5) 

HEGI2,  l ) * XX 
KEG<2,2)=RX 
RfcG<2, 3)»EX 
«EG<?,4)*VX 
KEC(2,5)*TX 
jrjH=2 

ru-KEGl 2,5)* 180. /3. 14159 

xu=«eg<2»  1 )*fogt 

HUaKtGI  ?,  2  I  •  FUC) f 

If  IMWKirr.NE.OI  WRITE  16*160) 
IKUtt 

DU  120  l?»3,  II 
XX-kt.Gl  12*  1 ) 

RX=k*  G(  12,21 
I' X -  Kl  G I  12*3) 

VX  MU  G(  12,4) 
rx=Kl Gi 12,5) 

HI G(I2,1I»X3A 

HEGI 1 2,2)=Y3A 

HI  G< 12, 3)«E3A 

HLG1 I2,4)«V3A 

KCG1 I 2,6)«T3A 

TU-HE  G<  12, 61*160. /3. 14159 

XU«KLGI I2,l)*fU0r 

K  U  -  K  E  G  (  I2,2)*FU0T 

IF  ( NWR 1 T  E  «NE .01  WRITE  16,160) 

,XUb 

X  3A-XX 

Y3A*=KX 

C  3A*EX 

ViAs/X 

T  3 A«  T  X 

CUAUINUE 

IFjfawKiTE.NE.OI  WRITE  I6,1T0) 
ffWfriNUE 
NT (H®  J-NJUMP 
HE  IJRN 


FL1  167 
Fll  168 
Fll  169 
Fll  170 
FL1  171 
Fll  172 
FL1  173 
Fll  174 
Fll  175 
Fll  176 
Fll  177 

106 • JOB *X0,RD*E1* VI* T0,K06  Fll  179 

FL1  180 
Fll  181 
Fll  182 
Fll  183 
Fll  184 
FL1  185 
FL1  186 
FL1  187 
Fll  186 
FL1  189 
FL1  190 
Fll  191 
FLl  192 

106, JOB, XD, AD, REJ 12, 3) *REGf 2*4) *TO*Fl 1  194 

FL1  195 
FLl  196 
Fll  197 
FL1  198 
FLl  199 
FLl  200 
Fll  201 

ru  202 

FL1  203 
Fll  204 
Fll  205 
FL1  206 
Fll  20 7 
Fll  208 
Fll  209 

I0B*I2*XD*RD*REG( 12* 3) *REG! 12*4) * TDFl 1  210 

FLl  211 
Fll  212 
Fll  213 
FL1  214 
FL1  215 
Fll  216 
FL1  217 
Fll  218 
Fll  219 
Fll  2 20 
Fll  221 
Fll  222 


c 

c 

150 

160 


170 

100 

190 


fll 

FORMAT  J2f„SS!*f!&0  lH  HE  SMAU  REGION  R1  )FL  1 

lK.6MMyM8CR,5lt,  aMVetOaTvf  7K.  JhAnglI5^  A4m  r«  5?f  S4X#2HXC*  flX  *  2MRC*  7FL 1 

2.l«K.5M(fPSJ,}K.95iMCR«SI  *  *  TER/34X.4HUNI  , 6K.4M  INIfU 

CAMU4  »  *  «...  .  *  ^  V *••**»  FL  1 

FL1 

HC«£I  £u 

fli 


FORMAT  <1H1#37X#46H0ATA 


FORMAT  UMOI 

FORMAT  Ii5I*fi5,f!i°'5,fl5'5*Fi2-5.I7) 

FORMAT  (43X«  34H  RIGHT  CHARACTERISTIC  SKIPPED 


223 

224 

225 
22  6 
227 
223 
229 
240 
231 
232- 


UHfir  :.u 


SUI-.KiKfllMl  Mil  f. T  <M‘TS.K.<D,NS,CS,X,«,M,V,T> 

K I  At 

r.ofMow  /»<•>/  iu*i; 

F.IIMMIJN  /Ht,f  NMD  I  Mf 

1  H  1  ML  NS  I  ON  *10(  1275,  n,  X  (  75  I  •  ft  (  75;)  ,  M(?5>,  V  (  / 1> ) .,  7175  ),, 

('  /  «  X  I  K  I  -x  (  1) 

MM'TS-l 

IJN-ri 

m  i  r  ,\/  --  n/ ✓  nrj 

i  i  1 1 / 1  -uri  r  Az/r.s 

xg-N'>  - 1 

SN=  1.0 

I' N  (DM  S-DS 

X  S  -  X  I  1  |  ♦*,N*L)IL  f  /  1 

rt  I  I  A  /  :  IX  IK  »  -Xf.  )  /|>M 

/  XII) 

HI  G  I  I  ,  l  )  =  X  (  1  | 

H  I  G  I  l  ,  1 1  i  m  <  |  I 
HI  G  (  I  » <•  )  -  V  (  l  ) 

HI.'i(l,MMU| 

MMWUI  (  1  1=0 
ihi  n  i  *  ? ,  t»  i 

MM) I  Ml  I  I  )  =NMII|NI  (  l-li+J-i 

in;  2)  I  =  ? , M* f S 

II  Cl.  . I  .MS  I  (jfL  IZ  l  =  OFl  TM 

7-  /♦!»!.  I  I  /  I 

l\ J=  NIMIIM?  I  I)  «  1 

HI  C,  (  |  J  .  1  )  =  / 

r.AH  A  I  I  K  r  N  (X  ,  KtK.K(), /,  YR  ) 

HI  U(NJ,2  )  =  Yll 

(.All  AlllTN  1X,M.,K,K(1,  7,VR| 

HI  G  I  NJ  ,  1  I  -  Vis 

(All  AIIHU  (X,  V.,K,K(],Z,YH) 

HI  01  HJ  ,4  J  *  VC, 

(.All  AIIMN  IX,  l.,K,Xn,/.,V«) 

HK.|fM,‘,)-YI1 
Com  I  Mill 
hi  limn 
I  Mil 


MPOI  NT((5S6L 
SEL 


Sfcl  -1 
SEL  ? 
SEL  3 
SEL  4 


SEL  7 
SEL  8 
SEL  9 
SEL  10 
SEL  11 
sel  1? 
SEL  13 
SF  L  !l  4 
SEL  15 
SE  L  !l  5 
SEL  17 
SCL  !lB 
SE  L  1  9 
SFl  20 
SI  L  .21 
SLL  2  2 
SEL  23 
SFL  .24 
SEL  25 
SLL  26 
SEL  27 
SEL  .28 
SFL  2? 
SEL  30 
SEL  31 
St  tL  3  2 
SFL  3  3 
SFiL  34 
SEL  35 
SFL  36 
SEL  3  7 
SFl  38 
SE.l  39 
SFiL  40 
SFl  4.1 
SEL  42- 


41BFTC  FLOW 

SUBROUTINE  (FLO*  1NZ.'NV»MJ,NX,NCH£CK,XL£NG,NR£CR3  ,XF  INAL  i 

COMMON  783/  PA,PQ,;TU,AHQO,G,R,GO 

[COMMON  705/  REG 

[COMMON  /B6/  NP 

[COMMON  /.B8/  NMRITE 

[COMMON  789/  RAO*  FOOT 

'COMMON  /B13/  XSiKSf TS 

DIMENSION  REG(1275,7 ),«  NP<51),,  XS(  125  )  ,  ,RS(  125) ,  TSI125) 
[IF  lNMRITF.£fi.O)  GO  10  llO 
WRITE  (6*110) 

[WRITE  (6,130) 

WRITE  (6,120) 

[IOB«i 

JOB-1 

KQB-0 

TD*KEG(1,5 )/RAD 
XD-REG  ( JL»  J))»FQOT  • 

RD-REG (.1,  2 )*FUOT 

WRI  TE  [(6,140:1  IOB, JQB,XD,AD,R£G(1,3),REG<  1,4)  fTJ  ,KOB 
WRITE  (6,120) 

I  OB- 2 

T  D-REG  ( 2,,  3 1  /RAD 

X0-AFG(2,tl)>*FQ0T  * 

RO-KEGt  2,2  )*>00T 

WRITE  (6,140)  [IOB,ilOB,RO,RD,REG(2,3)rfREG(2,4)rtl3,vKDB 
10  WY-N2-.2 

DO  TO  N-NZ,,NY 

IF  lNGHECK.NE.lj)  NRECRD-N 

•NS«N-2 

IF  (NS.LE.O)  GO  iTO 


30 


WR-1 

(IF  [(NZ.wNE.2)  MX-MY 
NW«NP(R)*1 
iT.DwREG  ( NH.,3  )7RAD 
JOB-1 

RD*REG(NWI,ll;)FFD0T 
RD*»REG  ( NW,»  ,2  JFFQDT 


-FLO 

fFLO 

FLO 

[FLO 

FLO 

[FLO 

FLO 

FLO 

FLO 

FLO 

fFLO 

•FLO 

[FLO 

FLO 

FLO 

[Flo 

flo 

FLO 

FLO 

FLO 

FLO 

FLO 

FLO 

[FLO 

[FLO 

FLO 

FLO 

FLO 

FLO 

'FLO 

FLO 

•FLO 

-FLO 

FLO 

sFLO 

FLO 

'Flo 


IF  (NWRITEvNt.'D )  WR:IY.£  13.1F0)  R* JDB,RD,RDl,REGIMW,3:)l,REG(NWr4  )t,lD,,FLO 

MOB  pro 

[DO  20  W-MK.  NS  pin 

Nl^NPlK)**  pin 

fN2*NP;(‘Nwl,)*6M-*l  '^rJJ 

CRLL  -CHARI  t(REG(NL,l)),rReG(W2,l))^«EG(Wlr,2i)„REGIN2  ,2)  ,R€G ( Nl„4 L.REGIFLO 

lN2^4)rf«EG(Nl„5:)t,«EG(N2T,4:),,ReG(N.l„3)),,REGIN2,3),^,,G,Ga,R„X3A,Y3A,V3FL0 

2A,,~T3A,r£3A,t  |J 


W3»rNPJN)*M*l 

REGTN3* 1)«X3A 

REG(W3,2)-Y3A 

REG(N?,3)-E3A 

[R£G(N3*F>*JY3A 

w£G(W3,v5)»rraA 

iTD*Ta**i  BOv/a.  1*159 
XD*X3A*F00T 


-FLO 

(FLO 

‘FLO 

FLO 

'FLO 

[FLO 

IFL'O 

(FLO 

fFLO 

FLO 


il 

2 

3 

4 

5 

6 

7 

8 
9 

10 

111 

12 

13 

14 

15 

16 
1/7 
18 

19 

20 
21 
22 

23 

24 
.26 
26 
27 
.28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 
-40 
FI 
F2 
F3 
F4 
F5 
F6 
F? 
Ffl 
F9 
30 
*31 

32 

33 

34 


-  *  *- ™ 


HO*V3A«FnOT 

CUNT?NUETC*NE*0>  WRITE  U*l40,  NtJ0B,XD,RD,E3A, 
GO  TO  AO 


V3A,  TO»  I 


X3A«KEG(2.1) 

Y AA*REGI 2,2) 

£  3 A*KEG( 2,  3 1 
VJA*KEG(2,A) 

T  3A*REG( 2, 5 ) 

X l *X  3 A 
V 1  *  V  3  A 
1 1  *  T  3  A 
E  l  *  L  3  A 
VI  -  VIA 

NA-NPIN-l ) ♦N-i 
X2-KEGINA, l ) 
Y2-KEGINA.2I 
T  2  G  (  NA,  5  )  • 


£**UP<N|!Nm'Vl*X2,V2,T2*Tl,El*Vl,NJ,NX,X3A,Vn,m»T3A»E3A»l‘ 


WRITE  (6,90) 


XF INAL«REGINVQ» I ) 


It  E  G I  N  3 ,  1  )«X3A 
RIU NJ,2) *Y3A 
RCG<N3,3)*£3A 
PI  Gl N  3 , A  I *V3A 
HI  GIN),5)*T3A 
TU»I  IAMH0./3.1A159 
XU*X3A*FD0T 
HU  -  V  3  A  *FOI)T 

IF  I  NWl<  1 1  £  .NE  .0  I  WRITE  (6,140)  N.N  , XO , R0  ,E  3A,  V3A  ,TD,I 
IF  ( NWK I T  E .Nt .0 )  WRITE  (6,120) 

IF  lNCHFCK.tO.il  GO  TO  TO 
XCK-XLf  NG-lX3A-REGU.il  I 
IF  IXCK.GT .O.O.ANO.N.EQ.NYI  WRITE  16*901 
NY(J=NP(N)M 

IF  IXCK.GT. O.O.ANO.N.EQ.NYI  XF INAL*R£G(NVQ, I ) 

IF  I X CK )  50t80t?0 
Nt*N-l 

NF*NP(NEI»Nt 

OX  -  XL ENG-  (  REG!  NF  ,  1  )-REG(  1(D) 

OX 1-KEGIN3. 1 I-REGINF,  1 ) 

2U*XLENG»REG( 1« 1 1 
RLGI N3« 1 1 *20 

CALL  AITKEN  < X$ , RS ,N J,NX ,ZQ, YB ) 

HEG(N3,2)*YB 

CALL  AITKEN  IXS»TS,NJ(NX(2Q*YB) 

REG(N3,5I*YB*3. 1A159/180. 

RfcG(N3,3)-REGINF,3)FDX*IREGIN3,3)-REG(Nf,3))/DXl 
K6GIN3,A|«REGINF,A|fOX*IREGIN3(A)-REGINF,A))/DX1 
IF  INWKITE.NE.O)  WRITE  I6»100) 

(C*N 

Nl *NP(N)»N 
N2*NP( NE • fNE 

IF  I NWR I T  E.NE.O  I  WRITE  (6,120) 

X0*REGIN3, 1 ) *FOOT 
RU*REG(N3,2) *FOUT 


FLO 

FLO 

FLO 

FLO 

FLO 

FLO 

FLO 

FLO 

FLO 

FLO 

FLO 

FLO 

FLO 

FLO 

FLO 

FLO 

FLO 

flo 

FLO 

FLO 

FLO 

FLO 

FLO 

FLO 

flo 

FLO 

FLO 

FLO 

FLO 

FLO 

FLO 

flo 

FLO 

FLO 

FLO 

FLO 

FLO 

flo 

FLO 
FLO 
FLO 
FLO 
FLO 
FLO 
FLO 
FLO  ; 
FLO  ! 
FLO  ! 
FLO  ] 
FLO  1 
FLO  ] 
FLO  ] 
FLO  1 
FLO  1 
FLO  I 

flo  i 


.1  tttftaf 

*’J*  '•  ' 


* 


I0-JECIM.5I/M0  fl0  |U 

pin  ii> 

if  *N«R1TE.NE.0I  WRITE  (6,1401  N,M,X0,RD,REG(N1, 31 ,REGt Nl ,4) , T0» I YFLO  113 
00  60  IXMtNE  f,  0  .  .4 

IC-IC-1  FLO  115 

|  REG1NI, I ) »REG(N2»  1 )  ,REGt N1 , 2) «REG IN?  ,21  ,REG(Nl,4)  , REG  (FLO  116 
1,5,1 r6CIN2»51«REGI Nl,3) ,REG(N?t 31* T3 ,G«G0,R,X3A,Y3A»V3FL0  11? 
2A,T3A,E3A, I !  c» n  ita 

n3-ni-i  ;; 

IF  1 1 X  .EQ.NE  I  XFINAL-X3A  JJ“o 

REGIM3.11-X3A  121 

RE'i(N3,2)>Y3A  ihX  \*\ 

R£GIN3,3!-E3A  -X 

REG1N3.4I-V3A  J 

REGIN3.5I-T3A  ‘f! 

T0-T3A/RAD  ^X  }!* 

X0.X3A*F00T  }f* 

R0.T3A*F00T  \\[ 

IF  (NWRITE.NE.O!  WRITE  (6,140!  N,  IC » XO » RD,REG INI  * 3) ,REG I N3 ,4 ) , TO, 1FL0  129 

Nl*Nl-i  ci  Q  .10 

N2-N2-i  FLO  I*® 

GO  TO  BO  ;[°Q 

CONTINUE  [” 

™  »** 

NCIURN  FLO  136 

FLO  137 
FLO  13B 

FORMAT  I1H0.43X.34HTME  SELECTEO  UPSTREAM  GEOMETl V  AND/4 IX, 36HAMBIEFL0  140 
PREVENT  ™E  0ES1AEO/47X.26MLENGTH  FtOM  BEING  OBTAINEDIFLO  141 
FORMAT  ( 1H0, 36X,47HTH£  PREVIOUS  RIGHT  CHARACTERISTIC  IS  BEVONO  THEFLO  142 
1/40X,41HREGI0N  R  AND  IS  REPLACED  BY  THE  FOLLOWING)  FLO  143 

FORMAT  I 1H1 , 46X , 28HOAT A  FOR  THE  MAIN  FLOW  FIELD!  FLO  144 

FORMAT  (lHOt 

.J°!S!5MMiJl!0i34!!*^«^:22x,4M,:L0‘,/25x»lM,»4X*lHJ»4X»2MXC»8*^HRc.7FLo  m 
1X,6HNUMBER,5X,BHVEL0C1 T Y»7X,SHANGLE*6X,4H I  TER/34 X,4H( IN),6X,4H(IN)FL0  147 
2,1MX,SH(FPSI * 7X ,9H( DEGREES ) !  cXX  14H 

FORMAT  (21X,2I5,3F10.5,F1S.9,F12.5,17)  FLO  [11 

5M0  FLO  150- 


197 


AIBFTC  QUAD I 


SUBROUTINE  QUAO  Ul.  X2«V  l,V2,  THETA  1 

QUA 

1 

0X-X2-X1 

QUA 

2 

0V-V2-V1 

QUA 

3 

D-SQRT I0X662*DV**21 

QUA 

4 

st-ov/o 

QUA 

5 

CT-OX/O 

QUA 

6 

IF  (ST.GT.O.O.AND.CT.GT.O.O)  60  TO  10 

QUA 

7 

IF  IST.GT.O.O.ANO.CT.LT.O.O)  60  TO  20 

QUA 

8 

IF  IST.IT.O.O.ANO.CT.LT.O.O)  GO  TO  20 

QUA 

9 

IF  1ST .LT.O.O.AND.CT.GT.0.0)  60  TO  30 

QUA 

10 

IF  IST.EQ.O.O.ANO.CT.EQ.l.O)  GO  TO  40 

QUA 

11 

IF  1ST rEQ.O.O. AND.CT .EQ.-l.O)  GO  TO  50 

QUA 

12 

IF  1ST .EQ. l.O.ANO.CT .EQ.O.O)  GO  TO  60 

QUA 

13 

IF  1ST .EQ.-l.O. ANO.CT.EO.O.O)  GO  TO  70 

QUA 

14 

10 

THETA-ATANI  OV/UX ) 

QUA 

15 

GO  TO  80 

QUA 

16 

c 

QUA 

17 

20 

THETA«3.14159*ATANI0V/0X t 

QUA 

18 

GO  TO  80 

QUA 

19 

c 

QUA 

20 

30 

THETA-6.2I31S+AT  AMI OV/OX ) 

QUA 

21 

GO  TO  80 

QUA 

22 

C 

QUA 

23 

40 

THETA-0.0 

QUA 

24 

GO  TO  80 

QUA 

25 

c 

QUA 

26 

50 

THETA-3.14159 

QUA 

27 

GO  TO  80 

QUA 

28 

c 

QUA 

29 

60 

THETA- 3.14159/2.0 

QUA 

30 

GO  TU  80 

QUA 

31 

C 

QUA 

32 

70 

THETA-3. *3. 14159/2. 

QUA 

33 

80 

CONTINUE 

QUA 

34 

RETURN 

QUA 

36 

ENO 

QUA 

36- 

•  IBFTC  CHARI 

<Xl*X2»Vl»V2^l*^»Tl»T2.Cl.E2.TO,G,CO,R,m.V3A.CHA 

IV3A(i 3A»E3A» 1 1 

^  C  Hi 

(il«1.0/S0RnEl**2>U0)  rZl 

t>2-1.0/SQItTlE2*»2-I.O)  fU? 

AI-ATANID1I  ruZ 

A2*Af ANI02)  rnl 

U-C0SIA|)/(SINI  Al  I  *V  I »  rCC 

U2*C0S(A2)/( SIH( A2I*V2I  rC? 

F2-SINIY2)»SIN(A2)/SI4<T2«A2)  rMA 

Gl-SIN<U)*S(N<A1)/SI«<TI-At>  cha 

aii-ai 

A23-A2  rJI 

T13-TI 

T23-T2 

CM 

023*02  tma 

F23-F2 

f!2’G'  cha 

to  I-IAI  JDi 

X3A-IV2>Vl»Xl*SlN<Tl3>A13)/COS<Tl3-AI3)>X2*SIN(r23»A23)/COS(T23*A2CHA 
mi/<SIHiri3-A|3)/COSm3-A|3)-SI»llT23*A23l/COSIf2B*A2BI>  CHA 


V3A*Vl*(X3A>XII«SlNITI3-At3)/C0SIT13-AI3) 

VI3-IVUV3AI/2.0 

V23>(V2*V3A)/2.0 

IF  IABS(rt3>AI3).Lf..314t59)  GO  T3  20 
IF  <ABS(T23»A23).LT«. 314159)  GO  TO  30 
V3*»(n-i2*flii*vi«023»v2mj*in*-vii/nm»#in*‘ 

123) 

T3A*n~Q13*<V3A-Vl)AG134(V3A-Vi)m3 
GO  ro  40 

G13-S  mm3)  »SINUI3  l/COSI  T13-A13) 

V3A-ITl-T2*Q13»tf  t+Q23»V2*G13*IX3A-Xl)/V13*F23*U3A‘ 
123) 

F3R"TI-0I3*I V3A-VI )»GI34|X3A-Xl)/fl3 
GO  TO  40 

F23-SINIT23)4SIN(A23)/C0S<T23AA23) 

V3A>in-T2»013«Vl»023«V2»Cl)F|Y3A>Vl)/YI3»F2)*U3A< 

123) 

T3A-f 1-Q13*( V3A-V1)«G13*<V3A-VI)/V|3 
TE3A«TO-V3AA*2*<  G-UO)/<  2.0*G*G0*A ) 
SP3A>SOATIG*GO*R*TE3A) 

E3A-Y3A/SF3A 

IF  (E3A.LE.I.0.AN0.I.LE.10)  E3A-1.09 
C3A»l  .O/SQRT |E3A**2**1«0) 

A3A-ATANI03A) 

IF  (I.EQ.I)  GO  TO  90 
X3P«U3A-X3)/X3 
V3P»I Y3A-V3I/V3 
E3P>IE3A-E3)/E3 


CHA  24 
CHA  29 
CHA  24 
CHA  27 
CHA  24 

V2)/V23I/(013*QCHA  29 

CHA  30 
CHA  31 
CHA  32 
CHA  33 
CHA  34 

V2)/V23)/(Q13*QCHA  39 

CHA  36 
CHA  37 
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used  to  carry  out  a  parametric  study  to  determine  the  optimum  cowl  lip 
radius  and  injection  angle  when  the  plug  length  is  fixed.  The  resulting 
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